home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / DISK1 / MACROS.CMZ / PRNPAGES.SMM < prev    next >
INI File  |  1993-03-14  |  10KB  |  817 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.     Drukowanie wybranych stron
  19.     Lotus WPD Marketing
  20.     Intermediate
  21.     Local Arrays, FilePrint
  22.     noautorun
  23.     723946398
  24.     14
  25.     679087132
  26.     250
  27.     3
  28.     579
  29.     3059
  30.     9
  31.     11
  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. [lay]
  56.     Standard
  57.     516
  58.     [rght]
  59.         16833
  60.         11908
  61.         1
  62.         1440
  63.         1440
  64.         1
  65.         1440
  66.         1440
  67.         0
  68.         1
  69.         0
  70.         1
  71.         0
  72.         2
  73.         1
  74.         1440
  75.         10465
  76.         12
  77.         1
  78.         720
  79.         1
  80.         1440
  81.         1
  82.         2160
  83.         1
  84.         2880
  85.         1
  86.         3600
  87.         1
  88.         4320
  89.         1
  90.         5040
  91.         1
  92.         5760
  93.         1
  94.         6480
  95.         1
  96.         7200
  97.         1
  98.         7920
  99.         1
  100.         8640
  101.     [hrght]
  102.     [lyfrm]
  103.         1
  104.         11200
  105.         0
  106.         0
  107.         11908
  108.         1440
  109.         0
  110.         1
  111.         3
  112.         1 0 0 0 0 0 0
  113.         0
  114.         0
  115.         1
  116.     [frmlay]
  117.         1440
  118.         11908
  119.         1
  120.         1440
  121.         72
  122.         1
  123.         792
  124.         1440
  125.         0
  126.         1
  127.         0
  128.         1
  129.         1
  130.         0
  131.         1
  132.         1440
  133.         10465
  134.         1
  135.         3
  136.         9360
  137.     [txt]
  138. <+B>Modified by Marek G. B</y>czek from UNICORN Poland
  139.  
  140. >
  141.     [frght]
  142.     [lyfrm]
  143.         1
  144.         13256
  145.         0
  146.         15393
  147.         11908
  148.         16833
  149.         0
  150.         1
  151.         3
  152.         1 0 0 0 0 0 0
  153.         0
  154.         0
  155.         2
  156.     [frmlay]
  157.         16833
  158.         11908
  159.         1
  160.         1440
  161.         792
  162.         1
  163.         15465
  164.         1440
  165.         0
  166.         1
  167.         0
  168.         1
  169.         1
  170.         0
  171.         1
  172.         1440
  173.         10465
  174.         2
  175.         2
  176.         4680
  177.         3
  178.         9360
  179.     [txt]
  180. >
  181. [elay]
  182. [l1]
  183.     0
  184. [pg]
  185.     3
  186.     49 0 32 32 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
  187.     97 0 19 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
  188.     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
  189. [edoc]
  190. <:#278,9025>Macro by <+!>Charlie Pappas<-!>
  191.  
  192. <:#278,9025>
  193.  
  194. @Function@<:#278,9025>function SelectPrint()
  195.  
  196. <:#278,9025>if GetOpenFileCount() <<1
  197.  
  198. <:#278,9025>    exit function
  199.  
  200. <:#278,9025>endif
  201.  
  202. <:#278,9025>ignorekeyboard(2)
  203.  
  204. <:#278,9025>'singlestep(1)
  205.  
  206. <:#278,9025>size = evalfield("numpages")
  207.  
  208. <:#278,9025>dim pages((size + 1))
  209.  
  210. <:#278,9025>hourglass(1)
  211.  
  212. <:#278,9025>for i = 1 to size
  213.  
  214. <:#278,9025>    filllist(i)
  215.  
  216. <:#278,9025>next
  217.  
  218. <:#278,9025>hourglass(0)
  219.  
  220. <:#278,9025>box = dialogbox("." "selprint")
  221.  
  222. <:#278,9025>if box <<<;> 1
  223.  
  224. <:#278,9025>    return 0
  225.  
  226. <:#278,9025>endif
  227.  
  228. <:#278,9025>if getdialogfield$(110)
  229.  
  230. <:#278,9025>    firstend = getdialogfield$(8002)
  231.  
  232. <:#278,9025>    if 0 = isnumeric(firstend) or firstend << 1
  233.  
  234. <:#278,9025>        goto skip1
  235.  
  236. <:#278,9025>    endif
  237.  
  238. <:#278,9025>    for i = 1 to firstend ' set array
  239.  
  240. <:#278,9025>        pages(i) = 1
  241.  
  242. <:#278,9025>    next
  243.  
  244. <:#278,9025>endif
  245.  
  246. <:#278,9025>skip1:
  247.  
  248. <:#278,9025>if getdialogfield$(120) ' need total pages in doc
  249.  
  250. <:#278,9025>    lastpages = getdialogfield$(8003)
  251.  
  252. <:#278,9025>    if 0 = isnumeric(lastpages) or lastpages << 1
  253.  
  254. <:#278,9025>        goto skip2
  255.  
  256. <:#278,9025>    endif
  257.  
  258. <:#278,9025>    tpages = size
  259.  
  260. <:#278,9025>    lastend = tpages - lastpages + 1 ' calculate start last pg no
  261.  
  262. <:#278,9025>    if lastend << 1
  263.  
  264. <:#278,9025>        goto skip2 ' lastend not valid
  265.  
  266. <:#278,9025>    endif
  267.  
  268. <:#278,9025>    for i = lastend to tpages ' set array
  269.  
  270. <:#278,9025>        ck = pages(i)
  271.  
  272. <:#278,9025>        if not ck = 1
  273.  
  274. <:#278,9025>            pages(i) = 1
  275.  
  276. <:#278,9025>        endif
  277.  
  278. <:#278,9025>    next
  279.  
  280. <:#278,9025>endif
  281.  
  282. <:#278,9025>skip2:
  283.  
  284. <:#278,9025>startrange = getdialogfield$(8009)
  285.  
  286. <:#278,9025>endrange = getdialogfield$(8004)
  287.  
  288. <:#556,9025>if ((0 = isnumeric(startrange)) or (0 = isnumeric(endrange)) or (startrange << 1) or (endrange << 1))
  289.  
  290. <:#278,9025>    goto skip3
  291.  
  292. <:#278,9025>endif
  293.  
  294. <:#278,9025>for i = startrange to endrange
  295.  
  296. <:#278,9025>    ck = pages(i)
  297.  
  298. <:#278,9025>    if not ck = 1
  299.  
  300. <:#278,9025>        pages(i) = 1
  301.  
  302. <:#278,9025>    endif
  303.  
  304. <:#278,9025>next
  305.  
  306. <:#278,9025>skip3:
  307.  
  308. <:#278,9025>startrange = getdialogfield$(8005)
  309.  
  310. <:#278,9025>endrange = getdialogfield$(8006)
  311.  
  312. <:#556,9025>if ((0 = isnumeric(startrange)) or (0 = isnumeric(endrange)) or (startrange << 1) or (endrange << 1))
  313.  
  314. <:#278,9025>    goto skip4
  315.  
  316. <:#278,9025>endif
  317.  
  318. <:#278,9025>for i = startrange to endrange
  319.  
  320. <:#278,9025>    ck = pages(i)
  321.  
  322. <:#278,9025>    if not ck = 1
  323.  
  324. <:#278,9025>        pages(i) = 1
  325.  
  326. <:#278,9025>    endif
  327.  
  328. <:#278,9025>next
  329.  
  330. <:#278,9025>skip4:
  331.  
  332. <:#278,9025>addpages = getdialogfield$(8000)
  333.  
  334. <:#278,9025>i = 1
  335.  
  336. <:#278,9025>while (1)
  337.  
  338. <:#278,9025>    pg = strfield$(addpages i " ")
  339.  
  340. <:#278,9025>    if pg = -1 or pg = ""
  341.  
  342. <:#278,9025>        break
  343.  
  344. <:#278,9025>    endif
  345.  
  346. <:#278,9025>    if 0 = isnumeric(pg)
  347.  
  348. <:#278,9025>        goto skippy
  349.  
  350. <:#278,9025>    endif
  351.  
  352. <:#278,9025>    ck = pages(pg)
  353.  
  354. <:#278,9025>    if not ck = 1
  355.  
  356. <:#278,9025>        pages(pg) = 1
  357.  
  358. <:#278,9025>    endif
  359.  
  360. <:#278,9025>    skippy:
  361.  
  362. <:#278,9025>    i = i + 1
  363.  
  364. <:#278,9025>wend
  365.  
  366. <:#278,9025>start = 1
  367.  
  368. <:#278,9025>while (start <<= size)
  369.  
  370. <:#278,9025>    ck = pages(start)
  371.  
  372. <:#278,9025>    if ck = 1 then
  373.  
  374. <:#278,9025>        stop = start + 1
  375.  
  376. <:#278,9025>        while (1)
  377.  
  378. <:#278,9025>            ck = pages(stop)
  379.  
  380. <:#278,9025>            if ck <<<;> 1 then
  381.  
  382. <:#278,9025>                stop = stop - 1
  383.  
  384. <:#278,9025>'                message("{start} - {stop}")
  385.  
  386. <:#278,9025>                FilePrint(1 start stop 1536)
  387.  
  388. <:#278,9025>                start = stop + 1
  389.  
  390. <:#278,9025>                break
  391.  
  392. <:#278,9025>            endif
  393.  
  394. <:#278,9025>            stop = stop + 1
  395.  
  396. <:#278,9025>        wend
  397.  
  398. <:#278,9025>    else
  399.  
  400. <:#278,9025>        start = start + 1
  401.  
  402. <:#278,9025>    endif
  403.  
  404. <:#278,9025>wend
  405.  
  406. <:#278,9025>message("Zrobione")
  407.  
  408. <:#278,9025>end function
  409.  
  410. <:#278,9025>
  411.  
  412. DIALOG    selprint
  413.  
  414. -2134376448    22    98    30    200    114    ""    ""    "Wybierz Strony do Drukowania"
  415.  
  416. FONT    8    "Helv"
  417.  
  418. 6    8    28    10    1000    1342177280    "static"    "&Strony:"    0 
  419.  
  420. 6    20    24    92    9000    1352728585    "listbox"    ""    0 
  421.  
  422. 40    4    107    40    100    1342308359    "button"    "Drukuj"    0 
  423.  
  424. 44    14    48    10    110    1342242819    "button"    "&Pierwsze:"    0 
  425.  
  426. 123    16    22    10    1002    1342177280    "static"    "&stron"    0 
  427.  
  428. 103    14    14    12    8002    1350631552    "edit"    ""    0 
  429.  
  430. 44    28    51    10    120    1342242819    "button"    "&Ostatnie:"    0 
  431.  
  432. 123    30    22    10    1003    1342177280    "static"    "&stron"    0 
  433.  
  434. 103    28    14    12    8003    1350631552    "edit"    ""    0 
  435.  
  436. 40    44    107    40    130    1342308359    "button"    "Zakres"    0 
  437.  
  438. 44    56    34    10    1004    1342177280    "static"    "od strony:"    0 
  439.  
  440. 79    54    22    12    8009    1350631552    "edit"    ""    0 
  441.  
  442. 104    56    12    10    1005    1342177280    "static"    "do:"    0 
  443.  
  444. 118    54    22    12    8004    1350631552    "edit"    ""    0 
  445.  
  446. 44    70    34    10    1006    1342177280    "static"    "od strony:"    0 
  447.  
  448. 79    68    22    12    8005    1350631552    "edit"    ""    0 
  449.  
  450. 104    70    13    10    1007    1342177280    "static"    "do:"    0 
  451.  
  452. 118    68    22    12    8006    1350631552    "edit"    ""    0 
  453.  
  454. 40    86    46    8    1001    1342308352    "static"    "&Inne strony:"    0 
  455.  
  456. 40    96    155    12    8000    1350631552    "edit"    ""    0 
  457.  
  458. 154    6    40    14    1    1342373889    "button"    "OK"    0 
  459.  
  460. 154    22    40    14    2    1342373888    "button"    "Anuluj"    0 
  461.  
  462. END DIALOG
  463.  
  464. >
  465.  
  466. [Embedded]
  467. 00006636
  468. >
  469. [macsum] 2
  470. SelectPrint 0 0 16 2
  471. selprint 2286 0 -1 111
  472. [macse]
  473. 14 SelectPrint
  474. 0 1050
  475. 13
  476. 5 1
  477. 18 5
  478. 11 00000064
  479. 6 0
  480. 15
  481. 9
  482. 0 32 2
  483. 0 1289 "numpages"
  484. 13
  485. 8 1
  486. 6 1
  487. 5 1
  488. 3 0
  489. 21 2 [X]
  490. 0 296 1
  491. 5 1
  492. 8 3
  493. 6 1
  494. 6 3
  495. 18 2
  496. 12 00000219
  497. 10 00000244
  498. 5 1
  499. 6 3
  500. 3 0
  501. 8 3
  502. 10 00000144
  503. 0 25 "{3}"
  504. 10 00000186
  505. 0 296 0
  506. 0 26 "." "selprint"
  507. 13
  508. 8 4
  509. 6 4
  510. 5 1
  511. 18 1
  512. 11 00000324
  513. 5 0
  514. 15
  515. 9
  516. 0 27 110
  517. 13
  518. 11 00000560
  519. 0 27 8002
  520. 13
  521. 8 5
  522. 5 0
  523. 0 277 "{5}"
  524. 13
  525. 18 0
  526. 6 5
  527. 5 1
  528. 18 5
  529. 1 2
  530. 11 00000446
  531. 10 00000560
  532. 5 1
  533. 8 3
  534. 6 5
  535. 6 3
  536. 18 2
  537. 12 00000531
  538. 10 00000560
  539. 5 1
  540. 6 3
  541. 3 0
  542. 8 3
  543. 10 00000456
  544. 6 3
  545. 5 1
  546. 23 2
  547. 10 00000498
  548. 0 27 120
  549. 13
  550. 11 00000928
  551. 0 27 8003
  552. 13
  553. 8 6
  554. 5 0
  555. 0 277 "{6}"
  556. 13
  557. 18 0
  558. 6 6
  559. 5 1
  560. 18 5
  561. 1 2
  562. 11 00000682
  563. 10 00000928
  564. 6 1
  565. 8 7
  566. 6 7
  567. 6 6
  568. 3 1
  569. 5 1
  570. 3 0
  571. 8 8
  572. 6 8
  573. 5 1
  574. 18 5
  575. 11 00000764
  576. 10 00000928
  577. 6 8
  578. 8 3
  579. 6 7
  580. 6 3
  581. 18 2
  582. 12 00000849
  583. 10 00000928
  584. 5 1
  585. 6 3
  586. 3 0
  587. 8 3
  588. 10 00000774
  589. 6 3
  590. 22 2
  591. 8 9
  592. 6 9
  593. 5 1
  594. 18 0
  595. 1 3
  596. 11 00000915
  597. 6 3
  598. 5 1
  599. 23 2
  600. 10 00000816
  601. 0 27 8009
  602. 13
  603. 8 10
  604. 0 27 8004
  605. 13
  606. 8 11
  607. 5 0
  608. 0 277 "{10}"
  609. 13
  610. 18 0
  611. 5 0
  612. 0 277 "{11}"
  613. 13
  614. 18 0
  615. 6 10
  616. 5 1
  617. 18 5
  618. 6 11
  619. 5 1
  620. 18 5
  621. 1 2
  622. 1 2
  623. 1 2
  624. 11 00001103
  625. 10 00001269
  626. 6 10
  627. 8 3
  628. 6 11
  629. 6 3
  630. 18 2
  631. 12 00001190
  632. 10 00001269
  633. 5 1
  634. 6 3
  635. 3 0
  636. 8 3
  637. 10 00001114
  638. 6 3
  639. 22 2
  640. 8 9
  641. 6 9
  642. 5 1
  643. 18 0
  644. 1 3
  645. 11 00001256
  646. 6 3
  647. 5 1
  648. 23 2
  649. 10 00001157
  650. 0 27 8005
  651. 13
  652. 8 10
  653. 0 27 8006
  654. 13
  655. 8 11
  656. 5 0
  657. 0 277 "{10}"
  658. 13
  659. 18 0
  660. 5 0
  661. 0 277 "{11}"
  662. 13
  663. 18 0
  664. 6 10
  665. 5 1
  666. 18 5
  667. 6 11
  668. 5 1
  669. 18 5
  670. 1 2
  671. 1 2
  672. 1 2
  673. 11 00001444
  674. 10 00001610
  675. 6 10
  676. 8 3
  677. 6 11
  678. 6 3
  679. 18 2
  680. 12 00001531
  681. 10 00001610
  682. 5 1
  683. 6 3
  684. 3 0
  685. 8 3
  686. 10 00001455
  687. 6 3
  688. 22 2
  689. 8 9
  690. 6 9
  691. 5 1
  692. 18 0
  693. 1 3
  694. 11 00001597
  695. 6 3
  696. 5 1
  697. 23 2
  698. 10 00001498
  699. 0 27 8000
  700. 13
  701. 8 12
  702. 5 1
  703. 8 3
  704. 5 1
  705. 11 00001915
  706. 0 20 "{12}" "{3}" " "
  707. 13
  708. 8 13
  709. 6 13
  710. 5 -1
  711. 18 0
  712. 6 13
  713. 7 ""
  714. 18 0
  715. 1 2
  716. 11 00001759
  717. 10 00001915
  718. 5 0
  719. 0 277 "{13}"
  720. 13
  721. 18 0
  722. 11 00001814
  723. 10 00001882
  724. 6 13
  725. 22 2
  726. 8 9
  727. 6 9
  728. 5 1
  729. 18 0
  730. 1 3
  731. 11 00001882
  732. 6 13
  733. 5 1
  734. 23 2
  735. 6 3
  736. 5 1
  737. 3 0
  738. 8 3
  739. 10 00001641
  740. 5 1
  741. 8 14
  742. 6 14
  743. 6 1
  744. 18 4
  745. 11 00002258
  746. 6 14
  747. 22 2
  748. 8 9
  749. 6 9
  750. 5 1
  751. 18 0
  752. 11 00002223
  753. 6 14
  754. 5 1
  755. 3 0
  756. 8 15
  757. 5 1
  758. 11 00002210
  759. 6 15
  760. 22 2
  761. 8 9
  762. 6 9
  763. 5 1
  764. 18 1
  765. 11 00002175
  766. 6 15
  767. 5 1
  768. 3 1
  769. 8 15
  770. 2 111 1 1 "{14}" "{15}" 1536
  771. 6 15
  772. 5 1
  773. 3 0
  774. 8 14
  775. 10 00002210
  776. 6 15
  777. 5 1
  778. 3 0
  779. 8 15
  780. 10 00002024
  781. 10 00002245
  782. 6 14
  783. 5 1
  784. 3 0
  785. 8 14
  786. 10 00001926
  787. 0 3 "Zrobione"
  788. 6 0
  789. 15
  790. 9
  791. DIALOG selprint
  792. -2134376448 22 98 30 200 114 "" "" "Wybierz Strony do Drukowania" 
  793. FONT 8 "Helv" 
  794. 6 8 28 10 1000 1342177280 "static" "&Strony:" 0 
  795. 6 20 24 92 9000 1352728585 "listbox" "" 0 
  796. 40 4 107 40 100 1342308359 "button" "Drukuj" 0 
  797. 44 14 48 10 110 1342242819 "button" "&Pierwsze:" 0 
  798. 123 16 22 10 1002 1342177280 "static" "&stron" 0 
  799. 103 14 14 12 8002 1350631552 "edit" "" 0 
  800. 44 28 51 10 120 1342242819 "button" "&Ostatnie:" 0 
  801. 123 30 22 10 1003 1342177280 "static" "&stron" 0 
  802. 103 28 14 12 8003 1350631552 "edit" "" 0 
  803. 40 44 107 40 130 1342308359 "button" "Zakres" 0 
  804. 44 56 34 10 1004 1342177280 "static" "od strony:" 0 
  805. 79 54 22 12 8009 1350631552 "edit" "" 0 
  806. 104 56 12 10 1005 1342177280 "static" "do:" 0 
  807. 118 54 22 12 8004 1350631552 "edit" "" 0 
  808. 44 70 34 10 1006 1342177280 "static" "od strony:" 0 
  809. 79 68 22 12 8005 1350631552 "edit" "" 0 
  810. 104 70 13 10 1007 1342177280 "static" "do:" 0 
  811. 118 68 22 12 8006 1350631552 "edit" "" 0 
  812. 40 86 46 8 1001 1342308352 "static" "&Inne strony:" 0 
  813. 40 96 155 12 8000 1350631552 "edit" "" 0 
  814. 154 6 40 14 1 1342373889 "button" "OK" 0 
  815. 154 22 40 14 2 1342373888 "button" "Anuluj" 0 
  816. 00006661
  817.