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