Module Winprint_Commands.pkg
1// Commands used by Winprint (old and new).
2#IFNDEF WinPrintId
3 Global_Variable Integer WinPrintId // Provide simple access to global object //JT
4 Move 0 to WinPrintId
5#ENDIF
6
7
8//*** With the DFWRITE/LN commands you can use 1-3 arguments
9//*** 1. Not Required = Text
10//*** 2. Not Req. = FonstStyle
11//*** 3. Not Req. = Number of decimals
12//*** !!! If you want to set decimals you MUST use all 3 arguments
13//***
14#COMMAND DFWRITELN #ULG$ SD#OBL SD#OBL .
15 #IF (!0=3)
16 #IFCLASS !1 "F" // if file field we want to rtrim the value - only works with WP2
17 Send DFWriteLn of WinPrintID !1 !2 0 !3 1 // last param is 0 or 1 - 1=right trim
18 #ELSE
19 Send DFWriteLn of WinPrintID !1 !2 0 !3 0
20 #ENDIF
21 #ENDIF
22 #IF (!0=2)
23 DFWriteln !1 !2 -1
24 #ENDIF
25 #IF (!0=1)
26 DFWriteln !1 FONT_DEFAULT -1
27 #ENDIF
28 #IF (!0=0)
29 DFWriteln "" FONT_DEFAULT -1
30 #ENDIF
31#ENDCOMMAND
32
33#COMMAND DFWRITE R SD#OBL SD#OBL .
34 #IF (!0=3)
35 #IFCLASS !1 "F" // if file field we want to rtrim the value - only works with WP2
36 Send DFWrite of WinPrintID !1 !2 0 !3 1 // last param is 0 or 1 - 1=right trim
37 #ELSE
38 Send DFWrite of WinPrintID !1 !2 0 !3 0
39 #ENDIF
40 #ENDIF
41 #IF (!0=2)
42 DFWrite !1 !2 -1
43 #ENDIF
44 #IF (!0=1)
45 DFWrite !1 FONT_DEFAULT -1
46 #ENDIF
47#ENDCOMMAND
48
49
50//*** With the WRITECOL/LN commands you can use 2-4 arguments
51//*** 1. Required = Text
52//*** 2. Required = Column to write to
53//*** 3. Not Req. = FonstStyle
54//*** 4. Not Req. = Number of decimals
55//*** !!! If you want to set decimals you MUST use all 4 arguments
56//***
57#COMMAND DFWRITELNCOL R RSD#OBL SD#OBL SD#OBL .
58 #IF (!0=4)
59 Send DFWriteln of WinPrintID !1 !3 !2 !4
60 #ENDIF
61 #IF (!0=3)
62 Send DFWriteln of WinPrintID !1 !3 !2 -1
63 #ENDIF
64 #IF (!0=2)
65 Send DFWriteln of WinPrintID !1 FONT_DEFAULT !2 -1
66 #ENDIF
67#ENDCOMMAND
68
69#COMMAND DFWRITECOL R RSD#OBL SD#OBL SD#OBL .
70 #IF (!0=4)
71 Send DFWrite of WinPrintID !1 !3 !2 !4
72 #ENDIF
73 #IF (!0=3)
74 Send DFWrite of WinPrintID !1 !3 !2 -1
75 #ENDIF
76 #IF (!0=2)
77 Send DFWrite of WinPrintID !1 FONT_DEFAULT !2 -1
78 #ENDIF
79#ENDCOMMAND
80
81
82//*** With the WWRITEPOS/LN commands you can use 2-4 arguments
83//*** 1. Required = Text
84//*** 2. Required = Position to start at from left margin. Depending
85//*** on if DFCurrent_Metrics is set to CM or INCH
86//*** 3. Not Req. = FonstStyle
87//*** 4. Not Req. = Number of decimals
88//*** !!! If you want to set decimals you MUST use all 4 arguments
89//*** 5. Max length (0 means no max)
90//***
91#COMMAND DFWRITELNPOS R RSD#OBL SD#OBL SD#OBL SD#OBL .
92 #IF (!0=5)
93 #IFCLASS !1 "F" // if file field we want to rtrim the value - only works with WP2
94 Send DFWritelnPos of WinPrintID !1 !3 !2 !4 !5 1 // last param is 0 or 1 - 1=right trim
95 #ELSE
96 Send DFWritelnPos of WinPrintID !1 !3 !2 !4 !5 0
97 #ENDIF
98 #ENDIF
99 #IF (!0=4)
100 DFWritelnPos !1 !2 !3 !4 0
101 #ENDIF
102 #IF (!0=3)
103 DFWritelnPos !1 !2 !3 -1 0
104 #ENDIF
105 #IF (!0=2)
106 DFWritelnPos !1 !2 FONT_DEFAULT -1 0
107 #ENDIF
108#ENDCOMMAND
109
110#COMMAND DFWRITEPOS R RSD#OBL SD#OBL SD#OBL SD#OBL .
111 #IF (!0=5)
112 #IFCLASS !1 "F" // if file field we want to rtrim the value - only works with WP2
113 Send DFWritePos of WinPrintID !1 !3 !2 !4 !5 1 // last param is 0 or 1 - 1=rtrim
114 #ELSE
115 Send DFWritePos of WinPrintID !1 !3 !2 !4 !5 0
116 #ENDIF
117 #ENDIF
118 #IF (!0=4)
119 DFWritePos !1 !2 !3 !4 0
120 #ENDIF
121 #IF (!0=3)
122 DFWritePos !1 !2 !3 -1 0
123 #ENDIF
124 #IF (!0=2)
125 DFWritePos !1 !2 FONT_DEFAULT -1 0
126 #ENDIF
127#ENDCOMMAND
128
129
130
131//*** Following command sets the font and remains active until
132//*** you change to another font
133//*** 1. Required = A valid Windows font
134//***
135//***
136#COMMAND DFFONT R
137 Send DFSetFont of WinPrintID !1
138#ENDCOMMAND
139
140
141//*** With the WFontsize command you can use 1-2 arguments
142//*** 1. Required = Hi
143//*** 2. Not Req. = Wi
144//***
145#COMMAND DFFONTSIZE RSDE#OBL
146 #IF (!0>1)
147 Send DFSetFontSize of WinPrintID !1 !2
148 #ELSE
149 Send DFSetFontSize of WinPrintID !1 0
150 #ENDIF
151#ENDCOMMAND
152
153
154//*** Following commands sets the margins of your document
155//*** 1. Required = Margin in CM or INCH depending in metrics
156//***
157//*** You can also use the procedure DFSetMargins to set all
158//*** margins at the same time.
159//***
160#COMMAND DFLEFTMARGIN RSDE#OBL
161 Send DFSetLeftMargin of WinPrintID !1
162#ENDCOMMAND
163
164#COMMAND DFRIGHTMARGIN RSDE#OBL
165 Send DFSetRightMargin of WinPrintID !1
166#ENDCOMMAND
167
168#COMMAND DFTOPMARGIN RSDE#OBL
169 Send DFSetTopMargin of WinPrintID !1
170#ENDCOMMAND
171
172#COMMAND DFBOTTOMMARGIN RSDE#OBL
173 Send DFSetBottomMargin of WinPrintID !1
174#ENDCOMMAND
175
176
177//*** DFBeginHeader creates a headertype of your choise
178//*** 1. Required = HeaderType
179//*** 2. Not Req. = Headernumber
180//***
181#COMMAND DFBEGINHEADER RSDE#OBL
182 #IF (!0>1)
183 Send DFBeginHeaderType of WinPrintID !2 !1
184 #ELSE
185 Send DFBeginHeaderType of WinPrintID 0 !1
186 #ENDIF
187#ENDCOMMAND
188
189
190//*** DFEndHeader endns a header section. And prints the header.
191//*** Headers can NOT be nested
192//***
193#COMMAND DFENDHEADER
194 Send DFEndHeaderType of WinPrintID
195 Send DFWriteHeaderType of WinPrintID (DFCurrent_HeaderNr(WinPrintID)) (DFCurrent_HeaderType(WinPrintID))
196#ENDCOMMAND
197
198
199//*** DFHeaderPos
200//*** 1. Required = Header position
201//***
202#COMMAND DFHEADERPOS RSDE#OBL
203 Send DFHeaderPosition of WinPrintID !1
204#ENDCOMMAND
205
206
207//*** DFHeaderFrame
208//*** 1. Required = Header frame type
209//*** 2. Not Req. = Weight of line
210//*** 3. Not Req. = line color //RGB_??
211//*** 4. Not Reg. = Fill color //RGB_??
212//***
213#COMMAND DFHEADERFRAME RSDE#OBL SD#OBL SD#OBL SD#OBL .
214 #IF (!0=4)
215 Send DFHeaderFrameType of WinPrintID !1 !3 !2 !4 DFGR_FILL
216 #ENDIF
217 #IF (!0=3)
218 Send DFHeaderFrameType of WinPrintID !1 !3 !2 RGB_BLACK DFGR_TRAN
219 #ENDIF
220 #IF (!0=2)
221 Send DFHeaderFrameType of WinPrintID !1 0 !2 RGB_BLACK DFGR_TRAN
222 #ENDIF
223 #IF (!0=1)
224 Send DFHeaderFrameType of WinPrintID !1 0 RGB_BLACK RGB_BLACK DFGR_TRAN
225 #ENDIF
226#ENDCOMMAND
227
228//*** DFHeaderMargin (JvH)
229//*** 1. Required = Margin type
230//*** HM_TOPOUTER = 0 // margin above the top of the header's frame
231//*** HM_TOPINNER = 1 // margin below the top of the header's frame
232//*** HM_BOTTOMINNER = 2 // margin above the bottom of the header's frame
233//*** HM_BOTTOMOUTER = 3 // margin below the bottom of the header's frame
234//*** 2. Required = Size of margin
235//***
236//
237#COMMAND DFHEADERMARGIN RSDE#OBL RSD#OBL
238 Send DFHeaderMargin of WinPrintID !1 !2
239#ENDCOMMAND
240
241
242//*** DFHeaderWrap
243//*** 1. Required = On/Off
244//*** HDR_NOWRAP = 0
245//*** HDR_WRAP = 1
246//***
247#COMMAND DFHEADERWRAP RSDE#OBL
248 Send DFHeaderWrap of WinPrintID !1
249#ENDCOMMAND
250
251
252//*** DFHeaderLineCheck
253//*** 1. Required = Number of lines to check. Using last settings of font
254//***
255#COMMAND DFHEADERLINECHECK RSD#OBL
256 Send DFHeaderLineCheck of WinPrintID !1
257#ENDCOMMAND
258
259//*** DFWriteBMP
260//*** 1. Required = Filename and path
261//*** 2. Required = Vertical start
262//*** 3. Required = Horizontal start
263//*** 4. Required = Height
264//*** 5. Required = Width
265//*** 6. Not Req. = Set current position or not //DFGR_NOPOS, DFGR_SETPOS
266#COMMAND DFWRITEBMP R RSD#OBL RSD#OBL RSD#OBL RSD#OBL SD#OBL .
267 #IF (!0=6)
268 Send DFWriteBMP of WinPrintID !1 !3 !2 !4 !5 !6
269 #ENDIF
270 #IF (!0=5)
271 Send DFWriteBMP of WinPrintID !1 !3 !2 !4 !5 DFGR_NOPOS
272 #ENDIF
273#ENDCOMMAND
274
275
276
277
278//*** DFWriteEllip
279//*** 1. Required = Vertical start
280//*** 2. Required = Horizontal start
281//*** 3. Required = Height
282//*** 4. Required = Width
283//*** 5. Not Req. = Boarder/line color //RGB_??
284//*** 6. Not Req. = Weight of line
285//*** 7. Not Req. = Wrap to next page //DFGR_NOWRAP,DFGR_WRAP
286//*** 8. Not Req. = Fill color //RGB_??
287//*** 9. Not Req. = Set current position or not //DFGR_NOPOS, DFGR_SETPOS
288//***
289#COMMAND DFWRITEELLIP RSD#OBL RSD#OBL RSD#OBL RSD#OBL SD#OBL SD#OBL SD#OBL SD#OBL SD#OBL
290 #IF (!0>8)
291 Send DFWriteEllip of WinPrintID !2 !1 !3 !4 !5 !8 DFGR_FILL !6 !7 !9
292 #ENDIF
293 #IF (!0=8)
294 Send DFWriteEllip of WinPrintID !2 !1 !3 !4 !5 !8 DFGR_FILL !6 !7 DFGR_NOPOS
295 #ENDIF
296 #IF (!0=7)
297 Send DFWriteEllip of WinPrintID !2 !1 !3 !4 !5 RGB_BLACK DFGR_TRAN !6 !7 DFGR_NOPOS
298 #ENDIF
299 #IF (!0=6)
300 Send DFWriteEllip of WinPrintID !2 !1 !3 !4 !5 RGB_BLACK DFGR_TRAN !6 DFGR_WRAP DFGR_NOPOS
301 #ENDIF
302 #IF (!0=5)
303 Send DFWriteEllip of WinPrintID !2 !1 !3 !4 !5 RGB_BLACK DFGR_TRAN 0 DFGR_WRAP DFGR_NOPOS
304 #ENDIF
305 #IF (!0=4)
306 Send DFWriteEllip of WinPrintID !2 !1 !3 !4 RGB_BLACK RGB_BLACK DFGR_TRAN 0 DFGR_WRAP DFGR_NOPOS
307 #ENDIF
308#ENDCOMMAND
309
310
311//*** DFWriteRect
312//*** 1. Required = Vertical start
313//*** 2. Required = Horizontal start
314//*** 3. Required = Height
315//*** 4. Required = Width
316//*** 5. Not Req. = Boarder/line color //RGB_??
317//*** 6. Not Req. = Weight of line
318//*** 7. Not Req. = Wrap to next page //DFGR_NOWRAP,DFGR_WRAP
319//*** 8. Not Req. = Fill color //RGB_??
320//*** 9. Not Req. = Set current position or not //DFGR_NOPOS, DFGR_SETPOS
321//***
322#COMMAND DFWRITERECT RSD#OBL RSD#OBL RSD#OBL RSD#OBL SD#OBL SD#OBL SD#OBL SD#OBL SD#OBL
323 #IF (!0>8)
324 Send DFWriteRect of WinPrintID !2 !1 !3 !4 !5 !8 DFGR_FILL !6 !7 !9
325 #ENDIF
326 #IF (!0=8)
327 Send DFWriteRect of WinPrintID !2 !1 !3 !4 !5 !8 DFGR_FILL !6 !7 DFGR_NOPOS
328 #ENDIF
329 #IF (!0=7)
330 Send DFWriteRect of WinPrintID !2 !1 !3 !4 !5 RGB_BLACK DFGR_TRAN !6 !7 DFGR_NOPOS
331 #ENDIF
332 #IF (!0=6)
333 Send DFWriteRect of WinPrintID !2 !1 !3 !4 !5 RGB_BLACK DFGR_TRAN !6 DFGR_WRAP DFGR_NOPOS
334 #ENDIF
335 #IF (!0=5)
336 Send DFWriteRect of WinPrintID !2 !1 !3 !4 !5 RGB_BLACK DFGR_TRAN 0 DFGR_WRAP DFGR_NOPOS
337 #ENDIF
338 #IF (!0=4)
339 Send DFWriteRect of WinPrintID !2 !1 !3 !4 RGB_BLACK RGB_BLACK DFGR_TRAN 0 DFGR_WRAP DFGR_NOPOS
340 #ENDIF
341#ENDCOMMAND
342
343
344//*** DFLineCheck
345//*** 1. Required = Number of lines to check. Using last settings of font
346//***
347#COMMAND DFLINECHECK RSD#OBL
348 Send DFLineCheck of WinPrintID !1
349#ENDCOMMAND
350
351
352//*** DFCreateDiagram
353//*** 1. Required = Type of diagram //DFGR_??
354//*** 2. Required = Type of effect //DFGR_??
355//*** 3. Required = Height
356//*** 4. Required = Width
357//*** 5. Optional = Display XY Axis (true/false), valid ONLY for bar charts
358//***
359#COMMAND DFCREATEDIAGRAM RSD#OBL RSD#OBL RSD#OBL RSD#OBL SD#OBL .
360 #IF (!0=5)
361 Send DFCreateDiagram of WinPrintID !1 !2 !3 !4 !5
362 #ENDIF
363 #IF (!0=4)
364 Send DFCreateDiagram of WinPrintID !1 !2 !3 !4 (false)
365 #ENDIF
366#ENDCOMMAND
367
368
369//*** DFWriteDiagram
370//*** 1. Required = Y-Position using current metrics //Constant can be used !!
371//*** 2. Required = X-Position using current metrics
372//*** 3. Optional = Set current position or not //DFGR_NOPOS, DFGR_SETPOS
373//***
374#COMMAND DFWRITEDIAGRAM RSD#OBL RSD#OBL SD#OBL .
375 #IF (!0=3)
376 Send DFDrawDiagram of WinPrintID (DFCurrent_Diagram(WinPrintID)) !1 !2 !3
377 #ENDIF
378 #IF (!0=2)
379 Send DFDrawDiagram of WinPrintID (DFCurrent_Diagram(WinPrintID)) !1 !2 (true)
380 #ENDIF
381#ENDCOMMAND
382
383
384//*** DFBeginDiagram
385//*** 1. Required = Type of diagram //DFGR_??
386//*** 2. Required = Type of effect //DFGR_??
387//*** 3. Required = Y-Position using current metrics //Constant can be used !!
388//*** 4. Required = X-Position using current metrics
389//*** 5. Required = Height
390//*** 6. Required = Width
391//*** 7. Optional = Display XY Axis (true/false), valid ONLY for bar charts
392//*** 8. Optional = Set current position or not //DFGR_NOPOS, DFGR_SETPOS
393//***
394#COMMAND DFBEGINDIAGRAM RSD#OBL RSD#OBL RSD#OBL RSD#OBL RSD#OBL RSD#OBL SD#OBL SD#OBL
395 #IF (!0>6)
396 Send DFCreateDiagram of WinPrintID !1 !2 !5 !6 !7
397 #ENDIF
398 #IF (!0=6)
399 Send DFCreateDiagram of WinPrintID !1 !2 !5 !6 (false)
400 #ENDIF
401 #IF (!0=8)
402 Send DFDrawDiagram of WinPrintID (DFCurrent_Diagram(WinPrintID)) !3 !4 !8
403 #ENDIF
404 #IF (!0<8)
405 Send DFDrawDiagram of WinPrintID (DFCurrent_Diagram(WinPrintID)) !3 !4 (true)
406 #ENDIF
407#ENDCOMMAND
408
409
410//*** DFDiagram_Item
411//*** 1. Required = Value
412//*** 2. Required = Label
413//*** 3. Not Req. = No value, Value or percent DFGR_NOVAL,DFGR_VAL,DFGR_PER
414//*** 4. Not Req. = Number of decimals
415//*** 5. Not Req. = Move slice in pie //DFGR_IN, DFGR_OUT
416//*** 6. Not Reg. = Fill color //RGB_??
417//*** 8. Not Req. = Boarder color //RGB_??
418//***
419#COMMAND DFDIAGRAM_ITEM RSD#OBL R SD#OBL SD#OBL SD#OBL SD#OBL SD#OBL .
420 #IF (!0=7)
421 Send DFDiagram_Item of WinPrintID;
422 (DFCurrent_Diagram(WinPrintID)) !2 !1 !7 !6 DFGR_FILL !4 !3 !5
423 #ENDIF
424
425 #IF (!0=6)
426 Send DFDiagram_Item of WinPrintID;
427 (DFCurrent_Diagram(WinPrintID)) !2 !1 RGB_BLACK !6 DFGR_FILL !4 !3 !5
428 #ENDIF
429
430 #IF (!0=5)
431 Send DFDiagram_Item of WinPrintID;
432 (DFCurrent_Diagram(WinPrintID)) !2 !1 RGB_BLACK -1 DFGR_FILL !4 !3 !5
433 #ENDIF
434
435 #IF (!0=4)
436 Send DFDiagram_Item of WinPrintID;
437 (DFCurrent_Diagram(WinPrintID)) !2 !1 RGB_BLACK -1 DFGR_FILL !4 !3 DFGR_IN
438 #ENDIF
439
440 #IF (!0=3)
441 Send DFDiagram_Item of WinPrintID;
442 (DFCurrent_Diagram(WinPrintID)) !2 !1 RGB_BLACK -1 DFGR_FILL 2 !3 DFGR_IN
443 #ENDIF
444
445 #IF (!0=2)
446 Send DFDiagram_Item of WinPrintID;
447 (DFCurrent_Diagram(WinPrintID)) !2 !1 RGB_BLACK -1 DFGR_FILL 2 DFGR_VAL DFGR_IN
448 #ENDIF
449#ENDCOMMAND
450
451
452//*** DFEndDiagram
453//***
454#COMMAND DFENDDIAGRAM
455 Send DFLockDiagram of WinPrintID (DFCurrent_Diagram(WinPrintID))
456#ENDCOMMAND
457
458
459//*** DFDiagramLabel
460//*** 1. Required = Label text (top)
461//***
462#COMMAND DFDIAGRAMLABEL R
463 Send DFDiagramLabel of WinPrintID (DFCurrent_Diagram(WinPrintID)) !1
464#ENDCOMMAND
465
466
467//*** DFDiagramXLabel
468//*** 1. Required = Label text (top)
469//***
470#COMMAND DFDIAGRAMXLABEL R
471 Send DFDiagramXLabel of WinPrintID (DFCurrent_Diagram(WinPrintID)) !1
472#ENDCOMMAND
473
474
475//*** DFDiagramYLabel
476//*** 1. Required = Label text (top)
477//*** 2. Orientation = Vertical/Horizontal
478//***
479#COMMAND DFDIAGRAMYLABEL R SD#OBL
480 #IF (!0>1)
481 Send DFDiagramYLabel of WinPrintID (DFCurrent_Diagram(WinPrintID)) !1 !2
482 #ELSE
483 Send DFDiagramYLabel of WinPrintID (DFCurrent_Diagram(WinPrintID)) !1 0
484 #ENDIF
485#ENDCOMMAND
486
487
488//*** DFWriteXYLine
489//*** 1. Required = Vertical start
490//*** 2. Required = Horizontal start
491//*** 3. Required = Vertical stopp
492//*** 4. Required = Horizontal stopp
493//*** 5. Not Req. = Boarder/line color //RGB_??
494//*** 6. Not Req. = Weight of line
495//*** 7. Not Req. = Wrap to next page //DFGR_NOWRAP,DFGR_WRAP
496//*** 8. Not Req. = Set current position or not //DFGR_NOPOS, DFGR_SETPOS
497//***
498#COMMAND DFWRITEXYLINE RSD#OBL RSD#OBL RSD#OBL RSD#OBL SD#OBL SD#OBL SD#OBL SD#OBL .
499 #IF (!0=8)
500 Send DFWriteXYLine of WinPrintID !2 !1 !4 !3 !5 !6 !7 !8
501 #ENDIF
502 #IF (!0=7)
503 Send DFWriteXYLine of WinPrintID !2 !1 !4 !3 !5 !6 !7 DFGR_NOPOS
504 #ENDIF
505 #IF (!0=6)
506 Send DFWriteXYLine of WinPrintID !2 !1 !4 !3 !5 !6 DFGR_NOWRAP DFGR_NOPOS
507 #ENDIF
508 #IF (!0=5)
509 Send DFWriteXYLine of WinPrintID !2 !1 !4 !3 !5 0 DFGR_NOWRAP DFGR_NOPOS
510 #ENDIF
511 #IF (!0=4)
512 Send DFWriteXYLine of WinPrintID !2 !1 !4 !3 RGB_BLACK 0 DFGR_NOWRAP DFGR_NOPOS
513 #ENDIF
514#ENDCOMMAND
515
516
517//*** DFWriteLine
518//*** 1. Required = Vertical start
519//*** 2. Required = Horizontal start
520//*** 3. Required = Length
521//*** 4. Not Req. = Horizontal/Vertical //RGB_HORI RGB_VERT
522//*** 5. Not Req. = Boarder/line color //RGB_??
523//*** 6. Not Req. = Weight of line
524//*** 7. Not Req. = Set current position or not //DFGR_NOPOS, DFGR_SETPOS
525//***
526#COMMAND DFWRITELINE RSD#OBL RSD#OBL RSD#OBL SD#OBL SD#OBL SD#OBL SD#OBL .
527 #IF (!0=7)
528 Send DFWriteLine of WinPrintID !2 !1 !3 !4 !5 !6 !7
529 #ENDIF
530 #IF (!0=6)
531 Send DFWriteLine of WinPrintID !2 !1 !3 !4 !5 !6 DFGR_NOPOS
532 #ENDIF
533 #IF (!0=5)
534 Send DFWriteLine of WinPrintID !2 !1 !3 !4 !5 0 DFGR_NOPOS
535 #ENDIF
536 #IF (!0=4)
537 Send DFWriteLine of WinPrintID !2 !1 !3 !4 RGB_BLACK 0 DFGR_NOPOS
538 #ENDIF
539 #IF (!0=3)
540 Send DFWriteLine of WinPrintID !2 !1 !3 DFGR_HORI RGB_BLACK 0 DFGR_NOPOS
541 #ENDIF
542#ENDCOMMAND
543
544
545//*** DFSetNumberOfCopies
546//*** 1. Required = Number of copies
547//***
548#COMMAND DFSETNUMBEROFCOPIES R
549 Send DFSetNumberOfCopies of WinPrintID !1
550#ENDCOMMAND
551
552