Problema raro con impresion TdosPrn()

[ralph]

Amigos:

Dos clientes me han reportado un problema raro que solo aparece con mi aplicacion con FWH 2.7+xHb 0995.

Normalmente imprimo facturas sin problemas desde mi aplicacion al puerto LPT1 con una impresora local Epson LX300+ , pero desde que migre la aplicacion a xHb el puerto falla luego de imprimir 7 u 8 facturas.
Es como si el puerto se desactivara, ya no se puede enviar nada a imprimir ( solo en modo DOS, porque las aplicaciones windows imprimen normal)
Tengo que salir de la aplicacion y volver a entrar para poder seguir imprimiendo, y el problema se repite nuevamente.

Aqui es donde falla la aplicacion:

Code: Select all

    ::cDevice := "LPT1:"
    .......
    if ( ::hDC := fCreate(::cDevice) ) < 0          // <----------Aqui falla 
       ::nLastError := fError()
       MsgInfo( "Error [" + str(::nLastError) + "] : Impresion Cancelada"+;
                "No se pudo crear "+ ::cDevice, "Error" )
    endif

Con mi aplicacion en Clipper + FW no sucede este problema. La PC es un P4 con Windows 2000 Prof y 256MB de RAM.

A alguien le pasa lo mismo ?

Ralph