Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   AutoCut en Epson TMU200PA (https://www.clubdelphi.com/foros/showthread.php?t=31186)

Leonardo 01-05-2006 05:09:11

AutoCut en Epson TMU200PA
 
que tal, tengo una aplicacion en la cual requiero mandar a impimir un ticket como nota de venta, en una impresora Epson TMU200PA model M119A, el problema que tengo que la persona perido us discos de instalacion busque en internet y no encuantro en controlador correcto he instalado el TMU210 y el TMU220 y la impresion sale bien, pero no hace el cortado del ticket ya busque en internet y esta funcion si esta disponible en este modelo pero el problema es encontrar el driver correcto, buscando en este mismo foro encntre que el comando para el autocut de las impresotas de la serrie TMU200 es como sigue:
var f : TextFile;
begin
AssignFile(f,'lpt1');
try
Rewrite(f);
Write (f, #29+'V'+#66+#20);
finally
CloseFile(f);
end;
Pero no corta el papel,lo unico que haces es sacar un poco el papel(feed)

Agradeceria si alguien me puede facilitr este controlador para win98, o si me puede ayudar con el comando.

De antemano gracias.

luisgutierrezb 02-05-2006 17:19:50

y no tiene el manual de la impresora? ahi vienen los comandos para manejar la impresora, entre ellos el cutter

Leonardo 03-05-2006 00:45:11

no tampoco tiene sus manuales

Casimiro Notevi 03-05-2006 20:16:01

Una sencilla búsqueda por google me ha llevado a esta página donde encontrarás un enlace para descargar el manual en pdf de la impresora.

Leonardo 04-05-2006 01:08:18

te agradezco mucho casimiro vi el link y me muestra exactamente el mismo comando que yo habia probado antes no paso nada,bueno solo hizo el feed,
seguire buscando

gracias de nuevo de todos modos.

brandolin 17-12-2008 15:59:18

Pudiste resolver el problema? a mi me esta sucediendo lo mismo. Alguna noticia de este hilo?

Kipow 17-12-2008 17:56:56

Proba con esto :

Código Delphi [-]var f : TextFile; begin AssignFile(f,'lpt1'); try Rewrite(f); Write (f, #27+#15); finally CloseFile(f); end;

Cañones 23-12-2008 18:17:27

Proba con esto

Código Delphi [-]
    Writeln(Impresora, '');
    Writeln(Impresora, '');
    Writeln(Impresora, '');
    Writeln(Impresora, '');
    Writeln(Impresora,#27#105); //Esto 'CORTA el TICKET'

Los espacios en blancon son para hacer un avance de papel, porque si no te cota antes.


Avisanos cual fue la solución.

Saludos.

Felices fiestas.


La franja horaria es GMT +2. Ahora son las 10:55:08.

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