FiveTech Software tech support forums

Toma en cuanta con que Windows de 32 bits, no controla al LPTx, Prueba asi: LOCAL oPrnIF !IsPrint("LPT1")        // sin los dos puntos RETURN nilENDIFoPrn := TDosPrn():New("LPT1")oPrn:StartPage()oPrn:say(10,10,"Prueba ...

... interna" del programa. De esta manera le funciona directamente a cualquier cliente, independientemente tenga impresora con puerto COM, LPTx o USB Aunque siempre he tenido la duda de cómo imprimir un ticket insertando un BMP como logotipo en la cabecera, siguiendo esta modalidad. Un ...

Excelente.... y pa xHarbour???
Salu2

Antonio, :) magistral. Compilado y ejecutado, aparentemente no da error, todo ok y BIDIRECCIONAL!!! lectura/escritura, vamos, que es directo al puerto. Las pruebas que hace test2.prg dan todas ok. Ahora a ver si teniendo acceso directo al puerto LPT se puede hacer funcionar a IsPrinter() o PrintRead...

David, Estoy revisando el ejemplo Test2.c que está en http://www.hytherion.com/beattidp/comput/pport.htm y parece que podemos adaptarlo facilmente a Harbour :-) Aqui tienes Test2.prg compilando y funcionando bien :-) // Adaptado para funcionar con Harbour y FWH#include "FiveWin....

Fernando,

Muchas gracias por tu ayuda. A ver si alguien puede arrojar más luz...


Saludos!

Ok, he estado probando con mi impresora, pero me da que lo que hacia bajo Clipper IsPrinter() no sirve bajo Windows/Harbour lo que sea.
Lo siento.

Fernando,

Code: Select all  Expand view

  oPrn := TDosPrn():New("lpt1")
 

¿Cómo estás creando el objeto objeto oPrn?

Fernando, Muchas gracias por tus apuntes, de hecho había visto ese método en otro post de este foro. En principio estoy usando la clase TDosPrn y desconozco si tu ejemplo sirve para esa clase, en todo caso he hecho pruebas y no funciona, nunca marca que la impresora está "Off Line", tanto ...

Lo dicho, me sonaba de haber visto algo. Lo puedes encontrar en el directorio FWH\SAMPLES\TESTRTF.PRG.

if Empty( oPrn:hDC )
MsgStop( "Printer not ready!" )
return nil
endif

Déjame que mire algunos ejemplos con TPrinter, no sé por qué me suena de haber visto por algún lado una línea preguntando por el estado de la impresora. Te digo algo.

Fernando, Gracias por tu ayuda. Respecto de los comandos "?" y "??", creo que no me queda más opción que ir listado a listado modificándolo por oPrn:Write y oPrn:NewLine según sea el caso. Así que se soluciona con paciencia :) , eso que nos falta a muchos. Respecto del problema p...

Hola. Me tropecé con un problema muy similar al tuyo cuando migré de Clipper a Fivewin y tenia listados definidos para matriciales con papel de 6 pulgadas de alto, y no te queda otro remedio que TDosPrn(), aunque mis listados no estaban definidos en Clipper con ? y ??, sino con row(), col(). Si quie...

Tienes capturado el puerto LPTx de la forma: net use "LPT1" \\NomEqui\NomImp persistent:yes ?????? Si es una impresora en el equipo propio prueba a capturarlo también así: Primero comparte tu propia impresora, dándole un nombre ...