Imprimir en modo texto ..

[Fita]

Hola a todos...

Existe un componente para imprimir en modo texto: JLPsay y te permite utilizar el estilo de impresión que utilizabamos en el viejo Clipper.
Lo uso con una Epson FX-1050 y anda de maravillas.

Algunos ejemplos:

BOLD - Ej. 1
say1.printon;
say1.say(1,10,'BOLD');
say1.say(1,10,'BOLD'); // to repeat at identic row and col
say1.PrintOff;
say1.Preview;
say1.PrintNow;

BOLD - Ej. 2
say1.printon;
say1.say(1,10,#27#69 'BOLD ON - Test');
say1.say(2,10,#27#0 'BOLD OFF - Test');
say1.PrintOff;
say1.Preview;
say1.PrintNow;

CONDENSED Ej. 1
say1.printon;
say1.say(1,10,#15 'CONDENSED ON - Test' );
say1.say(2,10,#18 'CONDENSED OFF - Test' );
say1.PrintOff;
say1.Preview;
say1.PrintNow;

Y, por supesto es muy rápido.

Pueden pedirlo al autor en jlpascoal@uol.com.br

Espero les sirva, a mi me resulto muy practico.

Saludos

[jachguate]

Veo el inconveniente que codificas las secuencias de escape de la impresora dentro del texto a enviar. Ya en los viejos días (hablando de viejos...) de pascal habian rutinas y funciones para encapsular esto y hacer algo mas "independiente" y facil de mantener.

al final de cuentas, este componente, lo único que hará es utilizar la técnica ya mencionada de los archivos de texto, y aunque encapsule ya esto, creo que le falta algo para considerarse una "solución" para imprimir. Eso lo digo, por supuesto, sin conocerlo, sino basado en el ejemplo enviado aqui.

Hasta luego.

[nelostanley]

Estimados caballeros,

Combatiendo mi ignoracion, a que se refieren con "imprimir directamente al puerto".

Se refiere a esta rutina.??

Código Delphi [-]
........
AssignFILE(MyPrinter,'LPT1' );
ReWrite(MyPrinter);
......

..... de no ser asi les rogaria aclarme la duda.


Gracias.