imprimir con set device to printer

jgcamposv
09 de Julio del 2003
Como están todos, por favor necesito ayuda para solucionar el siguiente proble, tengo que imprimir un listado que hice con say y get, utilizo set device to printer y set printer on, la impresión sale bien pero se dirige a la cola de impresión hasta que salgo del programa, si le coloco return no me imprime solo imprime cuando coloco exit o salgo de cualquier otra forma del programa, que debo hacer.

JAVS
09 de Julio del 2003
en lugar de ponerle return, ya intentaste con
STORE .F. TO VARIABLE_X, para esto deber hacer un ciclo DO WHILE en tu programa de imprecion.
Ejemplo:

DEFINE WINDOW VENTANA FROM 1,1 TO 40,100
ACTIVATE WINDOW VENTANA
USE BASE_X
SET INDEX ON INDEX_X
STORE .T. TO VENTANA
DO WHILE VENTANA

* HACES UN CICLO DE CONSULTA *

SET DEVICE TO PRINTER

* LO QUE VAYAS A IMPRIMIR *

SET PRINTER

STORE .F. TO VENTANA