home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Product
/
Product.zip
/
tink4v3.zip
/
PRNPAGES.SMM
< prev
next >
Wrap
INI File
|
1997-01-18
|
10KB
|
780 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
>
[macsum4] 2 21
SelectPrint 0 0 16 2
selprint 3003 0 65535 111
[macse]
14 SelectPrint
29 0 SelectPrint
17 1
0 1050
13
5 1
18 5
11 00000088
6 0
15
9
17 4
0 32 2
17 6
29 1 size
0 1289 "numpages"
13
8 1
17 7
6 1
5 1
3 0
29 2 pages
21 2 [X]
17 8
0 1681 1
29 3 i
5 1
8 3
17 9
6 1
6 3
18 2
12 00000305
10 00000337
5 1
6 3
3 0
8 3
10 00000224
17 10
0 25 "{3}"
10 00000272
17 12
0 1681 0
17 13
29 4 box
0 26 "." "selprint"
13
8 4
17 14
6 4
5 1
18 1
11 00000456
17 15
5 0
15
9
17 17
0 27 110
13
11 00000749
17 18
29 5 firstend
0 27 8002
13
8 5
17 19
5 0
0 277 "{5}"
13
18 0
6 5
5 1
18 5
1 2
11 00000621
17 20
10 00000749
5 1
8 3
17 22
6 5
6 3
18 2
12 00000713
10 00000749
5 1
6 3
3 0
8 3
10 00000631
17 23
6 3
5 1
23 2
10 00000680
17 27
0 27 120
13
11 00001253
17 28
29 6 lastpages
0 27 8003
13
8 6
17 29
5 0
0 277 "{6}"
13
18 0
6 6
5 1
18 5
1 2
11 00000915
17 30
10 00001253
17 32
29 7 tpages
6 1
8 7
17 33
29 8 lastend
6 7
6 6
3 1
5 1
3 0
8 8
17 34
6 8
5 1
18 5
11 00001052
17 35
10 00001253
6 8
8 3
17 37
6 7
6 3
18 2
12 00001144
10 00001253
5 1
6 3
3 0
8 3
10 00001062
17 38
29 9 ck
6 3
22 2
8 9
17 39
6 9
5 1
18 0
1 3
11 00001240
17 40
6 3
5 1
23 2
10 00001111
17 45
29 10 startrange
0 27 8009
13
8 10
17 46
29 11 endrange
0 27 8004
13
8 11
17 47
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 00001490
17 48
10 00001684
6 10
8 3
17 50
6 11
6 3
18 2
12 00001584
10 00001684
5 1
6 3
3 0
8 3
10 00001501
17 51
6 3
22 2
8 9
17 52
6 9
5 1
18 0
1 3
11 00001671
17 53
6 3
5 1
23 2
10 00001551
17 57
0 27 8005
13
8 10
17 58
0 27 8006
13
8 11
17 59
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 00001887
17 60
10 00002081
6 10
8 3
17 62
6 11
6 3
18 2
12 00001981
10 00002081
5 1
6 3
3 0
8 3
10 00001898
17 63
6 3
22 2
8 9
17 64
6 9
5 1
18 0
1 3
11 00002068
17 65
6 3
5 1
23 2
10 00001948
17 69
29 12 addpages
0 27 8000
13
8 12
17 70
5 1
8 3
17 71
5 1
11 00002496
17 72
29 13 pg
0 20 "{12}" "{3}" " "
13
8 13
17 73
6 13
5 -1
18 0
6 13
7 ""
18 0
1 2
11 00002298
17 74
10 00002496
17 76
5 0
0 277 "{13}"
13
18 0
11 00002367
17 77
10 00002456
17 79
6 13
22 2
8 9
17 80
6 9
5 1
18 0
1 3
11 00002456
17 81
6 13
5 1
23 2
17 84
6 3
5 1
3 0
8 3
10 00002142
17 86
29 14 start
5 1
8 14
17 87
6 14
6 1
18 4
11 00002963
17 88
6 14
22 2
8 9
17 89
6 9
5 1
18 0
11 00002920
17 90
29 15 stop
6 14
5 1
3 0
8 15
17 91
5 1
11 00002907
17 92
6 15
22 2
8 9
17 93
6 9
5 1
18 1
11 00002864
17 94
6 15
5 1
3 1
8 15
17 96
0 1560 1 "{14}" "{15}" 1536
17 97
6 15
5 1
3 0
8 14
17 98
10 00002907
17 100
6 15
5 1
3 0
8 15
10 00002665
10 00002950
17 103
6 14
5 1
3 0
8 14
10 00002527
17 106
0 3 "Done"
6 0
15
17 107
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
