I print two reports using @...say. Each one almost fills 8.5 by 5.5 inches each. The paper is preperforated 8.5x5.5 inches and dotmatrix fed (half sheets).
In Dos, I would just skip lines after the first report to get to line 34 to start printing the 2nd report. Then I would eject at the end of the 2nd report which would line it up correctly for the next report on the next halfsheet (without leaving any sheets in between).
However, due to this being run on GDI printers possibly, I'm trying to use 'set printer font' in VFP7. It sets the font correctly, however, running that code in VFP7 when issuing 'set printer to' at the end of the report, ejects a full page so then it is a whole half sheet down when finished ejecting.
How can I prevent a page eject? Issuing _PLENGTH does not work.
Here is the code (it can be tested as is, I cutout any variable references):
SET PRINTER TO NAME GETPRINTER()
SET DEVICE TO PRINT
SET PRINTER FONT "UTILITY 10cpi",12
PRIVATE xrow
xrow = 6
@ 0, 25 SAY 'POLICY OR SERVICE FEE CONSENT'
@ 1, 0 SAY "Insured...: "
@ 2, 0 SAY "Receipt#: "
@ 2, 20 SAY "Date: "
@ 2, 40 SAY "Time: "
@ 4, 0 SAY 'Description Amount'
@ 5, 0 SAY '------------------------- --------'
xrow = xrow + 1
@ xrow, 0 SAY 'Insured signature ______________________________ Date ____________'
#IF 'VISUAL' $ UPPER(VERSION())
@ xrow,56 SAY DATE()
#ENDIF
xrow = xrow + 2
@ xrow, 0 SAY 'Policy or service fees charged in accordance with N.C. G.S. 58-33-85(b).'
@ xrow+1,0 SAY ""
SET CONSOLE ON
SET DEVICE TO SCREEN
SET PRINT TO
ACTIVATE SCREEN
RETURN
.·*´¨)
.·`TCH
(..·*
010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"