PC World Komputer 1998 July & August (B)/Pcwk78b98.iso/Smart30/ENGLISH/PRODUCTS/LOTUS018.DSK/PRNPAGES.SMM

INI File | 1992-06-11 | 9.3 KB | 691 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    Select pages to print
    Lotus WPD Marketing
    Intermediate
    Local Arrays, FilePrint
    noautorun
    708307617
    13
    679087132
    236
    4
    565
    2964
    9
    12






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[ParaNum]
    1
[l1]
    0
[pg]
    4
    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
    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
    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
    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
[edoc]
<:#293,9360>Macro by <+!>Charlie Pappas<-!>

<:#284,9360>

@Function@<:#293,9360>function SelectPrint()

if GetOpenFileCount() <<1

    exit function

endif

ignorekeyboard(2)

<:#284,9360>'singlestep(1)

<:#284,9360>size = evalfield("numpages")

<:#284,9360>dim pages((size + 1))

<:#284,9360>hourglass(1)

<:#284,9360>for i = 1 to size

<:#284,9360>    filllist(i)

<:#284,9360>next

<:#284,9360>hourglass(0)

<:#284,9360>box = dialogbox("." "selprint")

<:#284,9360>if box <<<;> 1

<:#284,9360>    return 0

<:#284,9360>endif

<:#284,9360>if getdialogfield$(110)

<:#284,9360>    firstend = getdialogfield$(8002)

<:#284,9360>    if 0 = isnumeric(firstend) or firstend << 1

<:#284,9360>        goto skip1

<:#284,9360>    endif

<:#284,9360>    for i = 1 to firstend ' set array

<:#284,9360>        pages(i) = 1

<:#284,9360>    next

<:#284,9360>endif

<:#284,9360>skip1:

<:#284,9360>if getdialogfield$(120) ' need total pages in doc

<:#284,9360>    lastpages = getdialogfield$(8003)

<:#284,9360>    if 0 = isnumeric(lastpages) or lastpages << 1

<:#284,9360>        goto skip2

<:#284,9360>    endif

<:#284,9360>    tpages = size

<:#284,9360>    lastend = tpages - lastpages + 1 ' calculate start last pg no

<:#284,9360>    if lastend << 1

<:#284,9360>        goto skip2 ' lastend not valid

<:#284,9360>    endif

<:#284,9360>    for i = lastend to tpages ' set array

<:#284,9360>        ck = pages(i)

<:#284,9360>        if not ck = 1

<:#284,9360>            pages(i) = 1

<:#284,9360>        endif

<:#284,9360>    next

<:#284,9360>endif

<:#284,9360>skip2:

<:#284,9360>startrange = getdialogfield$(8009)

<:#284,9360>endrange = getdialogfield$(8004)

<:#568,9360>if ((0 = isnumeric(startrange)) or (0 = isnumeric(endrange)) or (startrange << 1) or (endrange << 1))

<:#284,9360>    goto skip3

<:#284,9360>endif

<:#284,9360>for i = startrange to endrange

<:#284,9360>    ck = pages(i)

<:#284,9360>    if not ck = 1

<:#284,9360>        pages(i) = 1

<:#284,9360>    endif

<:#284,9360>next

<:#284,9360>skip3:

<:#284,9360>startrange = getdialogfield$(8005)

<:#284,9360>endrange = getdialogfield$(8006)

<:#568,9360>if ((0 = isnumeric(startrange)) or (0 = isnumeric(endrange)) or (startrange << 1) or (endrange << 1))

<:#284,9360>    goto skip4

<:#284,9360>endif

<:#284,9360>for i = startrange to endrange

<:#284,9360>    ck = pages(i)

<:#284,9360>    if not ck = 1

<:#284,9360>        pages(i) = 1

<:#284,9360>    endif

<:#284,9360>next

<:#284,9360>skip4:

<:#284,9360>addpages = getdialogfield$(8000)

<:#284,9360>i = 1

<:#284,9360>while (1)

<:#284,9360>    pg = strfield$(addpages i " ")

<:#284,9360>    if pg = -1 or pg = ""

<:#284,9360>        break

<:#284,9360>    endif

<:#284,9360>    if 0 = isnumeric(pg)

<:#284,9360>        goto skippy

<:#284,9360>    endif

<:#284,9360>    ck = pages(pg)

<:#284,9360>    if not ck = 1

<:#284,9360>        pages(pg) = 1

<:#284,9360>    endif

<:#284,9360>    skippy:

<:#284,9360>    i = i + 1

<:#284,9360>wend

<:#284,9360>start = 1

<:#284,9360>while (start <<= size)

<:#284,9360>    ck = pages(start)

<:#284,9360>    if ck = 1 then

<:#284,9360>        stop = start + 1

<:#284,9360>        while (1)

<:#284,9360>            ck = pages(stop)

<:#284,9360>            if ck <<<;> 1 then

<:#284,9360>                stop = stop - 1

<:#284,9360>'                message("{start} - {stop}")

<:#284,9360>                FilePrint(1 start stop 1536)

<:#284,9360>                start = stop + 1

<:#284,9360>                break

<:#284,9360>            endif

<:#284,9360>            stop = stop + 1

<:#284,9360>        wend

<:#284,9360>    else

<:#284,9360>        start = start + 1

<:#284,9360>    endif

<:#284,9360>wend

<:#284,9360>message("Done")

<:#284,9360>end function

<:#284,9360>

@Function@<:#293,9360>DIALOG selprint

<:#284,9360>-2134376448 22 96 30 172 114 "" "" "Select Pages to Print"

<:#284,9360>FONT 8 "Helv"

<:#284,9360>6 8 28 10 1000 1342177280 "static" "&Pages:" 0

<:#284,9360>6 20 24 92 9000 1352728585 "listbox" "" 0

<:#284,9360>40 4 82 40 100 1342308359 "button" "Print" 0

<:#284,9360>44 14 28 10 110 1342242819 "button" "&First:" 0

<:#284,9360>94 16 22 10 1002 1342177280 "static" "&pages" 0

<:#284,9360>76 14 14 12 8002 1350631552 "edit" "" 0

<:#284,9360>44 28 28 10 120 1342242819 "button" "&Last:" 0

<:#284,9360>94 30 22 10 1003 1342177280 "static" "&pages" 0

<:#284,9360>76 28 14 12 8003 1350631552 "edit" "" 0

<:#284,9360>40 44 82 40 130 1342308359 "button" "Range" 0

<:#284,9360>44 56 20 10 1004 1342177280 "static" "Page:" 0

<:#284,9360>64 54 22 12 8009 1350631552 "edit" "" 0

<:#284,9360>88 56 8 10 1005 1342177280 "static" "to" 0

<:#284,9360>96 54 22 12 8004 1350631552 "edit" "" 0

<:#284,9360>44 70 20 10 1006 1342177280 "static" "Page:" 0

<:#284,9360>64 68 22 12 8005 1350631552 "edit" "" 0

<:#284,9360>88 70 8 10 1007 1342177280 "static" "to" 0

<:#284,9360>96 68 22 12 8006 1350631552 "edit" "" 0

<:#284,9360>40 86 46 8 1001 1342308352 "static" "&Other pages:" 0

<:#284,9360>40 96 126 12 8000 1350631552 "edit" "" 0

<:#284,9360>126 6 40 14 1 1342373889 "button" "OK" 0

<:#284,9360>126 22 40 14 2 1342373888 "button" "Cancel" 0

<:#284,9360>END DIALOG

>

[Embedded]
00006041
>
[macsum] 2
SelectPrint 0 0 16 2
selprint 2282 0 -1 111
[macse]
14 SelectPrint
0 1050
13
5 1
18 5
11 00000064
6 0
15
9
0 32 2
0 1289 "numpages"
13
8 1
6 1
5 1
3 0
21 2 [X]
0 296 1
5 1
8 3
6 1
6 3
18 2
12 00000219
10 00000244
5 1
6 3
3 0
8 3
10 00000144
0 25 "{3}"
10 00000186
0 296 0
0 26 "." "selprint"
13
8 4
6 4
5 1
18 1
11 00000324
5 0
15
9
0 27 110
13
11 00000560
0 27 8002
13
8 5
5 0
0 277 "{5}"
13
18 0
6 5
5 1
18 5
1 2
11 00000446
10 00000560
5 1
8 3
6 5
6 3
18 2
12 00000531
10 00000560
5 1
6 3
3 0
8 3
10 00000456
6 3
5 1
23 2
10 00000498
0 27 120
13
11 00000928
0 27 8003
13
8 6
5 0
0 277 "{6}"
13
18 0
6 6
5 1
18 5
1 2
11 00000682
10 00000928
6 1
8 7
6 7
6 6
3 1
5 1
3 0
8 8
6 8
5 1
18 5
11 00000764
10 00000928
6 8
8 3
6 7
6 3
18 2
12 00000849
10 00000928
5 1
6 3
3 0
8 3
10 00000774
6 3
22 2
8 9
6 9
5 1
18 0
1 3
11 00000915
6 3
5 1
23 2
10 00000816
0 27 8009
13
8 10
0 27 8004
13
8 11
5 0
0 277 "{10}"
13
18 0
5 0
0 277 "{11}"
13
18 0
6 10
5 1
18 5
6 11
5 1
18 5
1 2
1 2
1 2
11 00001103
10 00001269
6 10
8 3
6 11
6 3
18 2
12 00001190
10 00001269
5 1
6 3
3 0
8 3
10 00001114
6 3
22 2
8 9
6 9
5 1
18 0
1 3
11 00001256
6 3
5 1
23 2
10 00001157
0 27 8005
13
8 10
0 27 8006
13
8 11
5 0
0 277 "{10}"
13
18 0
5 0
0 277 "{11}"
13
18 0
6 10
5 1
18 5
6 11
5 1
18 5
1 2
1 2
1 2
11 00001444
10 00001610
6 10
8 3
6 11
6 3
18 2
12 00001531
10 00001610
5 1
6 3
3 0
8 3
10 00001455
6 3
22 2
8 9
6 9
5 1
18 0
1 3
11 00001597
6 3
5 1
23 2
10 00001498
0 27 8000
13
8 12
5 1
8 3
5 1
11 00001915
0 20 "{12}" "{3}" " "
13
8 13
6 13
5 -1
18 0
6 13
7 ""
18 0
1 2
11 00001759
10 00001915
5 0
0 277 "{13}"
13
18 0
11 00001814
10 00001882
6 13
22 2
8 9
6 9
5 1
18 0
1 3
11 00001882
6 13
5 1
23 2
6 3
5 1
3 0
8 3
10 00001641
5 1
8 14
6 14
6 1
18 4
11 00002258
6 14
22 2
8 9
6 9
5 1
18 0
11 00002223
6 14
5 1
3 0
8 15
5 1
11 00002210
6 15
22 2
8 9
6 9
5 1
18 1
11 00002175
6 15
5 1
3 1
8 15
2 111 1 1 "{14}" "{15}" 1536
6 15
5 1
3 0
8 14
10 00002210
6 15
5 1
3 0
8 15
10 00002024
10 00002245
6 14
5 1
3 0
8 14
10 00001926
0 3 "Done"
6 0
15
9
DIALOG selprint
-2134376448 22 96 30 172 114 "" "" "Select Pages to Print"
FONT 8 "Helv"
6 8 28 10 1000 1342177280 "static" "&Pages:" 0
6 20 24 92 9000 1352728585 "listbox" "" 0
40 4 82 40 100 1342308359 "button" "Print" 0
44 14 28 10 110 1342242819 "button" "&First:" 0
94 16 22 10 1002 1342177280 "static" "&pages" 0
76 14 14 12 8002 1350631552 "edit" "" 0
44 28 28 10 120 1342242819 "button" "&Last:" 0
94 30 22 10 1003 1342177280 "static" "&pages" 0
76 28 14 12 8003 1350631552 "edit" "" 0
40 44 82 40 130 1342308359 "button" "Range" 0
44 56 20 10 1004 1342177280 "static" "Page:" 0
64 54 22 12 8009 1350631552 "edit" "" 0
88 56 8 10 1005 1342177280 "static" "to" 0
96 54 22 12 8004 1350631552 "edit" "" 0
44 70 20 10 1006 1342177280 "static" "Page:" 0
64 68 22 12 8005 1350631552 "edit" "" 0
88 70 8 10 1007 1342177280 "static" "to" 0
96 68 22 12 8006 1350631552 "edit" "" 0
40 86 46 8 1001 1342308352 "static" "&Other pages:" 0
40 96 126 12 8000 1350631552 "edit" "" 0
126 6 40 14 1 1342373889 "button" "OK" 0
126 22 40 14 2 1342373888 "button" "Cancel" 0
00006066