FoxPro/Visual FoxPro - Set printer to

Hola a todos, tengo un problema con el set printer to. Cada vez que ejecuto esto me salen 2 hojas en blanco y despues me imprime lo que deseo. ¿Como puedo que no me salgan las 2 hojas en blanco?. Gracias anticipadas.

XPRINTER = GETPRINTER( )

IF !EMPTY(XPRINTER)

SET PRINTER TO NAME &XPRINTER
SET PRINT ON
SET DEVICE TO PRINT
? "PRUEBA"
? ""
??? CHR(12)
SET PRINT OFF
SET DEVICE TO SCREEN
SET PRINTER TO
ENDIF

prueba de poner set device to print prompt noeject noconsole aver que pasa eso es para que no haga un salto de pagina antes de imprimir.
saludos

buena, pero si desearias primero imprimir el reporte en un txt y luego de eso recien mandarlo a impresora. cual seria la sentencia,,,