Clipper/FiveWin - CONCULTA CON TDOSPRN

Hola amigos

Para hacerles una consulta, estoy haciendo mis impresiones de facturas/boletas en las EPSON LX-300 y la unica forma que encontre es con la TDOSPRN muy buena la opcion, pero tengo un pequeño problema cuando la impresora detecta que no hay papel da un mensaje de que no hay papel, le pongo el papel y sigue dando el mismo error, lo he probado de todas formas... hay alguna solucion ??

Gracias

Att.
Luis Ponce

Amigo el problema es del controlador de la impresora. Prueba con reinstalar el sofware, creo que eso te solucionaria el problema.

Saludos

LEANDRO ALFONSO

Gracias Leandro Alfonso, pero el problema persiste aun cambiando de impresora es decir borrando la instalada y poniendo otra LX-300, a lo mejor sera la version de la CLASE ??? yo uso la del 15/01/2005 de 11.5kb

Att.
Luis Ponce

amigo esta clase detecta la impresora "LPT1",

TE ENVIO UNA PARTE DE MI PROGRAMA, ESPERO QUE TE SIRVA

Opr := TDosPrn():New("LPT1")

If Xfir
oPr:Command( ' 27,67,16 ' ) // 33 Líneas por página = 1/2 Carta
Xfir:=.F.
Else
oPr:Command( ' 27,67,17 ' ) // 33 Líneas por página = 1/2 Carta
Xfir:=.T.
EndIf

DbSelectArea("Cheques")
Xfecha := TRANSFORM(DAY(cheques->fecha),"99")+" de " + mespanol(cheques->fecha_pago) + " del " + transform(year(cheques->fecha),"9999")
Xletras := Pletras(cheques->valor)
******************** IMPRESION DEL CHEQUE ***********************************
OPR:SAY( 2 , 20, if(cheques->negociable,"NO NEGOCIABLE",""),4)
OPR:SAY( 4 , 11, Xfecha,4 )
OPR:SAY( 4 , 58, transform(cheques->valor,"999,999,999.99"),4)
OPR:SAY( 5 , 11, cheques->nombre,4 )
OPR:SAY( 7 , 11, Xletras,4 )
//OPR:SAY( 8 , 5, cheques->llave_che,4 )
oPr:EndPage()
oPr:Command( ' 27,67,66 ' ) // 33 Líneas por página = 1/2 Carta
Opr:end()

El Gus \Guatemala