Clipper/FiveWin - CONCULTA CON TDOSPRN

   
Vista:

CONCULTA CON TDOSPRN

Publicado por Luis Ponce (119 intervenciones) el 16/02/2008 17:54:53
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
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
información
Otras secciones de LWP con contenido de Clipper/FiveWin
- Código fuente de Clipper/FiveWin
- Cursos de Clipper/FiveWin
- Temas de Clipper/FiveWin
información
Códigos de Clipper/FiveWin
- Visor de archivos DBF
- Vaciar bases de datos
- Invertir cadena

RE:CONCULTA CON TDOSPRN

Publicado por Leandro Alfonso (121 intervenciones) el 17/02/2008 18:20:35
Amigo el problema es del controlador de la impresora. Prueba con reinstalar el sofware, creo que eso te solucionaria el problema.

Saludos

LEANDRO ALFONSO
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:CONCULTA CON TDOSPRN

Publicado por Luis Ponce (119 intervenciones) el 18/02/2008 17:46:11
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
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:CONCULTA CON TDOSPRN

Publicado por Gustavo  (20 intervenciones) el 05/03/2008 00:22:05
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
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