home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / PRNPAGES.SMM < prev    next >
INI File  |  1992-06-11  |  10KB  |  691 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Select pages to print
  19.     Lotus WPD Marketing
  20.     Intermediate
  21.     Local Arrays, FilePrint
  22.     noautorun
  23.     708307617
  24.     13
  25.     679087132
  26.     236
  27.     4
  28.     565
  29.     2964
  30.     9
  31.     12
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [l1]
  56.     0
  57. [pg]
  58.     4
  59.     45 0 5 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  60.     88 0 4 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  61.     133 0 54 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  62.     137 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  63. [edoc]
  64. <:#293,9360>Macro by <+!>Charlie Pappas<-!>
  65.  
  66. <:#284,9360>
  67.  
  68. @Function@<:#293,9360>function SelectPrint()
  69.  
  70. if GetOpenFileCount() <<1
  71.  
  72.     exit function
  73.  
  74. endif
  75.  
  76. ignorekeyboard(2)
  77.  
  78. <:#284,9360>'singlestep(1)
  79.  
  80. <:#284,9360>size = evalfield("numpages")
  81.  
  82. <:#284,9360>dim pages((size + 1))
  83.  
  84. <:#284,9360>hourglass(1)
  85.  
  86. <:#284,9360>for i = 1 to size
  87.  
  88. <:#284,9360>    filllist(i)
  89.  
  90. <:#284,9360>next
  91.  
  92. <:#284,9360>hourglass(0)
  93.  
  94. <:#284,9360>box = dialogbox("." "selprint")
  95.  
  96. <:#284,9360>if box <<<;> 1
  97.  
  98. <:#284,9360>    return 0
  99.  
  100. <:#284,9360>endif
  101.  
  102. <:#284,9360>if getdialogfield$(110)
  103.  
  104. <:#284,9360>    firstend = getdialogfield$(8002)
  105.  
  106. <:#284,9360>    if 0 = isnumeric(firstend) or firstend << 1
  107.  
  108. <:#284,9360>        goto skip1
  109.  
  110. <:#284,9360>    endif
  111.  
  112. <:#284,9360>    for i = 1 to firstend ' set array
  113.  
  114. <:#284,9360>        pages(i) = 1
  115.  
  116. <:#284,9360>    next
  117.  
  118. <:#284,9360>endif
  119.  
  120. <:#284,9360>skip1:
  121.  
  122. <:#284,9360>if getdialogfield$(120) ' need total pages in doc
  123.  
  124. <:#284,9360>    lastpages = getdialogfield$(8003)
  125.  
  126. <:#284,9360>    if 0 = isnumeric(lastpages) or lastpages << 1
  127.  
  128. <:#284,9360>        goto skip2
  129.  
  130. <:#284,9360>    endif
  131.  
  132. <:#284,9360>    tpages = size
  133.  
  134. <:#284,9360>    lastend = tpages - lastpages + 1 ' calculate start last pg no
  135.  
  136. <:#284,9360>    if lastend << 1
  137.  
  138. <:#284,9360>        goto skip2 ' lastend not valid
  139.  
  140. <:#284,9360>    endif
  141.  
  142. <:#284,9360>    for i = lastend to tpages ' set array
  143.  
  144. <:#284,9360>        ck = pages(i)
  145.  
  146. <:#284,9360>        if not ck = 1
  147.  
  148. <:#284,9360>            pages(i) = 1
  149.  
  150. <:#284,9360>        endif
  151.  
  152. <:#284,9360>    next
  153.  
  154. <:#284,9360>endif
  155.  
  156. <:#284,9360>skip2:
  157.  
  158. <:#284,9360>startrange = getdialogfield$(8009)
  159.  
  160. <:#284,9360>endrange = getdialogfield$(8004)
  161.  
  162. <:#568,9360>if ((0 = isnumeric(startrange)) or (0 = isnumeric(endrange)) or (startrange << 1) or (endrange << 1))
  163.  
  164. <:#284,9360>    goto skip3
  165.  
  166. <:#284,9360>endif
  167.  
  168. <:#284,9360>for i = startrange to endrange
  169.  
  170. <:#284,9360>    ck = pages(i)
  171.  
  172. <:#284,9360>    if not ck = 1
  173.  
  174. <:#284,9360>        pages(i) = 1
  175.  
  176. <:#284,9360>    endif
  177.  
  178. <:#284,9360>next
  179.  
  180. <:#284,9360>skip3:
  181.  
  182. <:#284,9360>startrange = getdialogfield$(8005)
  183.  
  184. <:#284,9360>endrange = getdialogfield$(8006)
  185.  
  186. <:#568,9360>if ((0 = isnumeric(startrange)) or (0 = isnumeric(endrange)) or (startrange << 1) or (endrange << 1))
  187.  
  188. <:#284,9360>    goto skip4
  189.  
  190. <:#284,9360>endif
  191.  
  192. <:#284,9360>for i = startrange to endrange
  193.  
  194. <:#284,9360>    ck = pages(i)
  195.  
  196. <:#284,9360>    if not ck = 1
  197.  
  198. <:#284,9360>        pages(i) = 1
  199.  
  200. <:#284,9360>    endif
  201.  
  202. <:#284,9360>next
  203.  
  204. <:#284,9360>skip4:
  205.  
  206. <:#284,9360>addpages = getdialogfield$(8000)
  207.  
  208. <:#284,9360>i = 1
  209.  
  210. <:#284,9360>while (1)
  211.  
  212. <:#284,9360>    pg = strfield$(addpages i " ")
  213.  
  214. <:#284,9360>    if pg = -1 or pg = ""
  215.  
  216. <:#284,9360>        break
  217.  
  218. <:#284,9360>    endif
  219.  
  220. <:#284,9360>    if 0 = isnumeric(pg)
  221.  
  222. <:#284,9360>        goto skippy
  223.  
  224. <:#284,9360>    endif
  225.  
  226. <:#284,9360>    ck = pages(pg)
  227.  
  228. <:#284,9360>    if not ck = 1
  229.  
  230. <:#284,9360>        pages(pg) = 1
  231.  
  232. <:#284,9360>    endif
  233.  
  234. <:#284,9360>    skippy:
  235.  
  236. <:#284,9360>    i = i + 1
  237.  
  238. <:#284,9360>wend
  239.  
  240. <:#284,9360>start = 1
  241.  
  242. <:#284,9360>while (start <<= size)
  243.  
  244. <:#284,9360>    ck = pages(start)
  245.  
  246. <:#284,9360>    if ck = 1 then
  247.  
  248. <:#284,9360>        stop = start + 1
  249.  
  250. <:#284,9360>        while (1)
  251.  
  252. <:#284,9360>            ck = pages(stop)
  253.  
  254. <:#284,9360>            if ck <<<;> 1 then
  255.  
  256. <:#284,9360>                stop = stop - 1
  257.  
  258. <:#284,9360>'                message("{start} - {stop}")
  259.  
  260. <:#284,9360>                FilePrint(1 start stop 1536)
  261.  
  262. <:#284,9360>                start = stop + 1
  263.  
  264. <:#284,9360>                break
  265.  
  266. <:#284,9360>            endif
  267.  
  268. <:#284,9360>            stop = stop + 1
  269.  
  270. <:#284,9360>        wend
  271.  
  272. <:#284,9360>    else
  273.  
  274. <:#284,9360>        start = start + 1
  275.  
  276. <:#284,9360>    endif
  277.  
  278. <:#284,9360>wend
  279.  
  280. <:#284,9360>message("Done")
  281.  
  282. <:#284,9360>end function
  283.  
  284. <:#284,9360>
  285.  
  286. @Function@<:#293,9360>DIALOG selprint
  287.  
  288. <:#284,9360>-2134376448 22 96 30 172 114 "" "" "Select Pages to Print"
  289.  
  290. <:#284,9360>FONT 8 "Helv"
  291.  
  292. <:#284,9360>6 8 28 10 1000 1342177280 "static" "&Pages:" 0 
  293.  
  294. <:#284,9360>6 20 24 92 9000 1352728585 "listbox" "" 0 
  295.  
  296. <:#284,9360>40 4 82 40 100 1342308359 "button" "Print" 0 
  297.  
  298. <:#284,9360>44 14 28 10 110 1342242819 "button" "&First:" 0 
  299.  
  300. <:#284,9360>94 16 22 10 1002 1342177280 "static" "&pages" 0 
  301.  
  302. <:#284,9360>76 14 14 12 8002 1350631552 "edit" "" 0 
  303.  
  304. <:#284,9360>44 28 28 10 120 1342242819 "button" "&Last:" 0 
  305.  
  306. <:#284,9360>94 30 22 10 1003 1342177280 "static" "&pages" 0 
  307.  
  308. <:#284,9360>76 28 14 12 8003 1350631552 "edit" "" 0 
  309.  
  310. <:#284,9360>40 44 82 40 130 1342308359 "button" "Range" 0 
  311.  
  312. <:#284,9360>44 56 20 10 1004 1342177280 "static" "Page:" 0 
  313.  
  314. <:#284,9360>64 54 22 12 8009 1350631552 "edit" "" 0 
  315.  
  316. <:#284,9360>88 56 8 10 1005 1342177280 "static" "to" 0 
  317.  
  318. <:#284,9360>96 54 22 12 8004 1350631552 "edit" "" 0 
  319.  
  320. <:#284,9360>44 70 20 10 1006 1342177280 "static" "Page:" 0 
  321.  
  322. <:#284,9360>64 68 22 12 8005 1350631552 "edit" "" 0 
  323.  
  324. <:#284,9360>88 70 8 10 1007 1342177280 "static" "to" 0 
  325.  
  326. <:#284,9360>96 68 22 12 8006 1350631552 "edit" "" 0 
  327.  
  328. <:#284,9360>40 86 46 8 1001 1342308352 "static" "&Other pages:" 0 
  329.  
  330. <:#284,9360>40 96 126 12 8000 1350631552 "edit" "" 0 
  331.  
  332. <:#284,9360>126 6 40 14 1 1342373889 "button" "OK" 0 
  333.  
  334. <:#284,9360>126 22 40 14 2 1342373888 "button" "Cancel" 0 
  335.  
  336. <:#284,9360>END DIALOG
  337.  
  338. >
  339.  
  340. [Embedded]
  341. 00006041
  342. >
  343. [macsum] 2
  344. SelectPrint 0 0 16 2
  345. selprint 2282 0 -1 111
  346. [macse]
  347. 14 SelectPrint
  348. 0 1050
  349. 13
  350. 5 1
  351. 18 5
  352. 11 00000064
  353. 6 0
  354. 15
  355. 9
  356. 0 32 2
  357. 0 1289 "numpages"
  358. 13
  359. 8 1
  360. 6 1
  361. 5 1
  362. 3 0
  363. 21 2 [X]
  364. 0 296 1
  365. 5 1
  366. 8 3
  367. 6 1
  368. 6 3
  369. 18 2
  370. 12 00000219
  371. 10 00000244
  372. 5 1
  373. 6 3
  374. 3 0
  375. 8 3
  376. 10 00000144
  377. 0 25 "{3}"
  378. 10 00000186
  379. 0 296 0
  380. 0 26 "." "selprint"
  381. 13
  382. 8 4
  383. 6 4
  384. 5 1
  385. 18 1
  386. 11 00000324
  387. 5 0
  388. 15
  389. 9
  390. 0 27 110
  391. 13
  392. 11 00000560
  393. 0 27 8002
  394. 13
  395. 8 5
  396. 5 0
  397. 0 277 "{5}"
  398. 13
  399. 18 0
  400. 6 5
  401. 5 1
  402. 18 5
  403. 1 2
  404. 11 00000446
  405. 10 00000560
  406. 5 1
  407. 8 3
  408. 6 5
  409. 6 3
  410. 18 2
  411. 12 00000531
  412. 10 00000560
  413. 5 1
  414. 6 3
  415. 3 0
  416. 8 3
  417. 10 00000456
  418. 6 3
  419. 5 1
  420. 23 2
  421. 10 00000498
  422. 0 27 120
  423. 13
  424. 11 00000928
  425. 0 27 8003
  426. 13
  427. 8 6
  428. 5 0
  429. 0 277 "{6}"
  430. 13
  431. 18 0
  432. 6 6
  433. 5 1
  434. 18 5
  435. 1 2
  436. 11 00000682
  437. 10 00000928
  438. 6 1
  439. 8 7
  440. 6 7
  441. 6 6
  442. 3 1
  443. 5 1
  444. 3 0
  445. 8 8
  446. 6 8
  447. 5 1
  448. 18 5
  449. 11 00000764
  450. 10 00000928
  451. 6 8
  452. 8 3
  453. 6 7
  454. 6 3
  455. 18 2
  456. 12 00000849
  457. 10 00000928
  458. 5 1
  459. 6 3
  460. 3 0
  461. 8 3
  462. 10 00000774
  463. 6 3
  464. 22 2
  465. 8 9
  466. 6 9
  467. 5 1
  468. 18 0
  469. 1 3
  470. 11 00000915
  471. 6 3
  472. 5 1
  473. 23 2
  474. 10 00000816
  475. 0 27 8009
  476. 13
  477. 8 10
  478. 0 27 8004
  479. 13
  480. 8 11
  481. 5 0
  482. 0 277 "{10}"
  483. 13
  484. 18 0
  485. 5 0
  486. 0 277 "{11}"
  487. 13
  488. 18 0
  489. 6 10
  490. 5 1
  491. 18 5
  492. 6 11
  493. 5 1
  494. 18 5
  495. 1 2
  496. 1 2
  497. 1 2
  498. 11 00001103
  499. 10 00001269
  500. 6 10
  501. 8 3
  502. 6 11
  503. 6 3
  504. 18 2
  505. 12 00001190
  506. 10 00001269
  507. 5 1
  508. 6 3
  509. 3 0
  510. 8 3
  511. 10 00001114
  512. 6 3
  513. 22 2
  514. 8 9
  515. 6 9
  516. 5 1
  517. 18 0
  518. 1 3
  519. 11 00001256
  520. 6 3
  521. 5 1
  522. 23 2
  523. 10 00001157
  524. 0 27 8005
  525. 13
  526. 8 10
  527. 0 27 8006
  528. 13
  529. 8 11
  530. 5 0
  531. 0 277 "{10}"
  532. 13
  533. 18 0
  534. 5 0
  535. 0 277 "{11}"
  536. 13
  537. 18 0
  538. 6 10
  539. 5 1
  540. 18 5
  541. 6 11
  542. 5 1
  543. 18 5
  544. 1 2
  545. 1 2
  546. 1 2
  547. 11 00001444
  548. 10 00001610
  549. 6 10
  550. 8 3
  551. 6 11
  552. 6 3
  553. 18 2
  554. 12 00001531
  555. 10 00001610
  556. 5 1
  557. 6 3
  558. 3 0
  559. 8 3
  560. 10 00001455
  561. 6 3
  562. 22 2
  563. 8 9
  564. 6 9
  565. 5 1
  566. 18 0
  567. 1 3
  568. 11 00001597
  569. 6 3
  570. 5 1
  571. 23 2
  572. 10 00001498
  573. 0 27 8000
  574. 13
  575. 8 12
  576. 5 1
  577. 8 3
  578. 5 1
  579. 11 00001915
  580. 0 20 "{12}" "{3}" " "
  581. 13
  582. 8 13
  583. 6 13
  584. 5 -1
  585. 18 0
  586. 6 13
  587. 7 ""
  588. 18 0
  589. 1 2
  590. 11 00001759
  591. 10 00001915
  592. 5 0
  593. 0 277 "{13}"
  594. 13
  595. 18 0
  596. 11 00001814
  597. 10 00001882
  598. 6 13
  599. 22 2
  600. 8 9
  601. 6 9
  602. 5 1
  603. 18 0
  604. 1 3
  605. 11 00001882
  606. 6 13
  607. 5 1
  608. 23 2
  609. 6 3
  610. 5 1
  611. 3 0
  612. 8 3
  613. 10 00001641
  614. 5 1
  615. 8 14
  616. 6 14
  617. 6 1
  618. 18 4
  619. 11 00002258
  620. 6 14
  621. 22 2
  622. 8 9
  623. 6 9
  624. 5 1
  625. 18 0
  626. 11 00002223
  627. 6 14
  628. 5 1
  629. 3 0
  630. 8 15
  631. 5 1
  632. 11 00002210
  633. 6 15
  634. 22 2
  635. 8 9
  636. 6 9
  637. 5 1
  638. 18 1
  639. 11 00002175
  640. 6 15
  641. 5 1
  642. 3 1
  643. 8 15
  644. 2 111 1 1 "{14}" "{15}" 1536
  645. 6 15
  646. 5 1
  647. 3 0
  648. 8 14
  649. 10 00002210
  650. 6 15
  651. 5 1
  652. 3 0
  653. 8 15
  654. 10 00002024
  655. 10 00002245
  656. 6 14
  657. 5 1
  658. 3 0
  659. 8 14
  660. 10 00001926
  661. 0 3 "Done"
  662. 6 0
  663. 15
  664. 9
  665. DIALOG selprint
  666. -2134376448 22 96 30 172 114 "" "" "Select Pages to Print" 
  667. FONT 8 "Helv" 
  668. 6 8 28 10 1000 1342177280 "static" "&Pages:" 0 
  669. 6 20 24 92 9000 1352728585 "listbox" "" 0 
  670. 40 4 82 40 100 1342308359 "button" "Print" 0 
  671. 44 14 28 10 110 1342242819 "button" "&First:" 0 
  672. 94 16 22 10 1002 1342177280 "static" "&pages" 0 
  673. 76 14 14 12 8002 1350631552 "edit" "" 0 
  674. 44 28 28 10 120 1342242819 "button" "&Last:" 0 
  675. 94 30 22 10 1003 1342177280 "static" "&pages" 0 
  676. 76 28 14 12 8003 1350631552 "edit" "" 0 
  677. 40 44 82 40 130 1342308359 "button" "Range" 0 
  678. 44 56 20 10 1004 1342177280 "static" "Page:" 0 
  679. 64 54 22 12 8009 1350631552 "edit" "" 0 
  680. 88 56 8 10 1005 1342177280 "static" "to" 0 
  681. 96 54 22 12 8004 1350631552 "edit" "" 0 
  682. 44 70 20 10 1006 1342177280 "static" "Page:" 0 
  683. 64 68 22 12 8005 1350631552 "edit" "" 0 
  684. 88 70 8 10 1007 1342177280 "static" "to" 0 
  685. 96 68 22 12 8006 1350631552 "edit" "" 0 
  686. 40 86 46 8 1001 1342308352 "static" "&Other pages:" 0 
  687. 40 96 126 12 8000 1350631552 "edit" "" 0 
  688. 126 6 40 14 1 1342373889 "button" "OK" 0 
  689. 126 22 40 14 2 1342373888 "button" "Cancel" 0 
  690. 00006066
  691.