impresion directamente al lpt1

[STONECOLD]

hola tengo un problema, hice un sistema de facturacion, pero aca los clientes utilizan mucho impresoras epson lx 300 y paple de vairas copias y 8.5 por 5.5 continuo, entonces el reporte fue disenado a pies, creando un string por dentro, salvandolo en el disco y con un shell dandole copy al lpt1, y funciona perfecto, pero hay pro, yo envio al archivo linea por linea, como todos saben, pero quisiera poder enviar cada linea, o algunas de ellas con un font draft 10 y otros con draft 12, como hago eso en mi linea de comando

[marcoszorrilla]

Puedes utilizar el objeto Printer.

Código Delphi [-]
  With Printer.Canvas do
  begin
    Printer.BeginDoc;
    textout(100,100,'test');
    Printer.EndDoc;
  end;

Un breve ejemplo.

Un Saludo.

[afxe]

Este componente lo hizo un compañero mío de trabajo hace algunos años, yo le metí algunas mejoras, creo que no le importará que comparta aquí su código. Aunque no lo utilices, te dará una idea de cómo imprimir en impresoras matriciales en modo draft.

Saludos.

[apicito]

Empezado por afxe

Este componente lo hizo un compañero mío de trabajo hace algunos años, yo le metí algunas mejoras, creo que no le importará que comparta aquí su código. Aunque no lo utilices, te dará una idea de cómo imprimir en impresoras matriciales en modo draft.

Podrías facilitar un ejemplo sencillo de su uso?.
Un saludo.