General information
Title:
Inconvenient page eject
Dear All,
Two receipts are printed on one page. But the problem is, when first is finishes the EJECT automatically execute. I studied help SET DEVice to printer and find out this........
Directs @ ... SAY output to the printer. A page eject is issued when the coordinates in @ ... SAY specify a location on the page higher than the location specified by the coordinates in the previous @ ... SAY.
Here is the code for receipt printing.......
boLd = CHR(14)+CHR(15)
noRm = CHR(18)+CHR(20)
SET DEVICE TO PRINTER
= coMpadr(rc6,0)
IF LEN(foRhd)>0
@ 7, 33 SAY 'RECEIPT'
ENDIF
@ 9, 2 SAY boLd+'No. '+noRm
@ 9, 6 SAY RIGHT(rc1, 5)
@ 9, 60 SAY 'Dated :'+DTOC(reCeipt.rcVdt-_fR_af)
@ 12, 2 SAY ;
'Received with thanks from
______________________________________'
@ 12, 28 SAY rc2
@ 15, 0 SAY ;
' The sum of Rupees
______________________________________________'
@ 15, 20 SAY CHR(15)+amToword(rc3)+CHR(18)+CHR(20)
@ 18, 0 SAY ;
' by Bank/Cash _______________________'
@ 18, 15 SAY IIF(EMPTY(rc4)," CASH",rc4)
@ 21, 2 SAY 'Rs. ______________'
@ 21, 5 SAY rc3 PICTURE '999,999,999.99'
IF LEN(foRhd)>0
@ 26, 34 SAY PADL('For '+foRhd,44)
ENDIF
if prow()>30
EJECT
endif
SET DEVICE TO SCREEN
How to avoid page eject. I mean how to reset coordinates in @ ... SAY specify a location on the page point to start of the page.
Thanks
Nafees
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only