imprimir con set device to printer
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.
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
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