Impresion en Visual FoxPro

Jose Ramos
25 de Marzo del 2004
Tengo un programa en Visual FoxPro que corria en Windows 95 y 98 sin problemas de impresion, al cambiarlo a Windows XP solo me permite imprimir cuando cierro el programa, ej. hago una factura, la mando a imprimir y tengo que cerrar el programa para que imprima la factura. ¿A que se debe esto y como puedo corregirlo?

Esta es mi rutina:

**********************************************************************
IF PRINTSTATUS()
IF ALIAS()!='panfac'&&PANtalla de FACtura
SELECT ... INTO CURSOR panfac;
SELECT panfac
ENDIF
GO TOP
SET MEMOWIDTH TO 60
SET PRINTER ON
SET DEVICE TO PRINTER
??? CHR(27)+CHR(64)
??? CHR(27)+CHR(120)+CHR(1)
??? CHR(27)+CHR(107)+CHR(0)
??? CHR(27)+CHR(67)+CHR(33)
@ 1,2 SAY " "
@ 7,2 SAY panfac.cli_nom
@ 8,2 SAY UPPER(panfac.cli_dom)
@ 9,2 SAY panfac.cli_pob
@ 10,2 SAY ...
@ 25,69 SAY " "
EJECT
??? CHR(27)+CHR(7)
??? CHR(27)+CHR(19)
WAIT WINDOW "La transmisión de datos ha concluído. Puede ahora continuar" NOWAIT
SET DEVICE TO SCREEN
SET PRINTER OFF
ELSE
MESSAGEBOX("La Impresora No Esta En Linea",4+32,"¡ERROR EN LA IMPRESORA!")
ENDIF
RETURN
**********************************************************************

Muchas gracias.

jorgemar453
25 de Marzo del 2004
probaste poner en lugar :
set printer off
pone
set printer to