PDA

Ver la Versión Completa : problemas epson tmu 200b


ricardo_cl_2
20-05-2003, 03:50:18
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;