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