Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   problemas epson tmu 200b (https://www.clubdelphi.com/foros/showthread.php?t=613)

ricardo_cl_2 20-05-2003 03:50:18

problemas epson tmu 200b
 
Tengo una impresora epson tmu 200 b y la verdad que no la he podido hacerla funcionar en DOS quiero imprimir unos ticket de atraso de alumnos y solo lo puedo hacer a travez de windows lo que pasa es que quiero agilizar la impresion y eliminar la impresion con el quickrepor probe con el zreport y la verdad que nunca lo logre instalar y la verdad no se como hacerlo por eso si alguien me puede ayudar

X-JABS 20-05-2003 07:22:04

Un Ejemplo:

procedure TForm1.Button1Click(Sender: TObject);
Var
MyPrinter: TextFile;
begin
AssignFILE(MyPrinter,'LPT1');
ReWrite(MyPrinter);
Write(MyPrinter, CHR(27) + CHR(64)); // Inicializar Impresora
Write(MyPrinter, CHR(27)+CHR(67)+CHR(44)); // Fijar Tamaño en Lineas
Write(MyPrinter,CHR(27)+ CHR(103)); // Tipo de Letra Chicas
Write(MyPrinter,CHR(27)+CHR(197)); // Negrita
Write(MyPrinter,CHR(27)+CHR(179)+CHR(28)); // Espacio entre Lineas
Write(MyPrinter,' ESTA ES UNA PRUEBA ');
Write(MyPrinter,' DE IMPRESION! ');

Write(MyPrinter,#12); // Expulsar la Hoja
System.CloseFile(MyPrinter);
End;


La franja horaria es GMT +2. Ahora son las 00:04:03.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi