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):

                * Choose a dot-matrix printer
		SET PRINTER TO NAME GETPRINTER()

		SET DEVICE TO PRINT

                *If I issue the next line to set the font
                *then it ejects an entire page of 66 lines when finished
		SET PRINTER FONT "UTILITY 10cpi",12

                *If I issue the printer fonts using ??? (store in variable
                * opt) then it ejects correctly
                * ??? opt		
		
                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