FoxPro/Visual FoxPro - ayuda por favor

   
Vista:

ayuda por favor

Publicado por monica (51 intervenciones) el 12/12/2007 13:07:06
tengo un problema con los envios de impresion utilizando Visual Fox ocn Windows XP.
Antes con W 98 yo enviaba una impresion con los comandos:
SET CONSOLE OFF
SET PRINTER ON
SET PRINTER TO LPT1
y la impresion iba directo a la impresora que se encotraba en el puerto LPT1, pero luego de camb iar a WXP no anda mas.
Ahora envia la impresion a la impresora predeterminada que no es la de LPT1 es una que está en un puerto USB.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda por favor

Publicado por Oscar Ramirez (78 intervenciones) el 12/12/2007 20:37:58
Hola monica pues si es con los reportes yo lo que hago es esto

KEYBOARD '{CTRL+F10}' PLAIN CLEAR
REPORT FORM MiReporte NOCONSOLE TO PRINTER PROMPT PREV

Con esta instruccion una vista previa del reporte y me muestra una barra de herramientas de impresion la cual puedes seleccionar la impresora configurada en el PC o en la RED y es mas sencillo y funciona en Win XP.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda por favor

Publicado por alexcoinc (449 intervenciones) el 12/12/2007 22:40:27
La del paisa, para probar:

En otras palabras desinstale todas la impresoras, tanto por software como por hardware

Finalmente instale solo la impresora que va en le puerto LPT1 y pruebe el funcionamiento del porgrama si todo va bien pues instala la del usb

Solo por probar

NOTA: TE RECUERDO QUE ESTOS COMANDO FUNCIONAN FULL TAMBIEN EN XP.

Ahora si definitivamente no te funcionan entonces, haz esto:

* EL REPORTE SE GENERA EN UN ARCHIVO
*---------------------------------------------------------------
SET PRINTER TO C:TEMPORALARCHIVO.TXT
SET CONSOLE OFF
SET DEVICE TO PRINT
SET PRINT ON

*AQUI VIENE EL PROCESO DEL APLICATIVO
****** TATATAT
*****TATATAT
****TATAT

*CUANDO FINALICE, ENTONCES:

SET PRINT OFF
SET DEVI TO SCREEN
SET CONSOLE ON
SET PRINT TO

*Y PARA DECIDIR SI LO IMPRIMES:

respu = messagebox('Seguro(a) que desea Imprimir ?', 292, 'Confirme')
If respu = 6
! TYPE c: emporalfax.txt>PRN O AL LPT1
Endif

Espero te sirva!

alexcoinc
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar