![]() |
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
|
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