Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Abrir Cash Drawer (https://www.clubdelphi.com/foros/showthread.php?t=12535)

MITOPE 20-07-2004 02:38:29

Abrir Cash Drawer
 
Hola a todos, recientemente compramos unas impresora Epson tm-u220, anteriormente usabamos impresoras Star sp 2000, tambien para tickets, pero ahora no se que código mandar a la impresora despues de imprimir el comprobante para abrir la caja de dinero o cash drawer , marca Casio, si alguien a hecho esto antes por favor si me puede ayudar.

Gracias a todos, ahh la impresora es con puerto paralela

meetworks 14-01-2005 13:37:00

Abrir cajón portamonedas
 
Hola a todos. El cajón portamonedas que tengo montado con las impresoras Epson Tm-U220 se abre fácilmente con el siguiente código:

procedure AbrirCajon;
var f : TextFile;
begin
AssignFile(f,'lpt1');
try
Rewrite(f);
Writeln(f,#27+'p0'+#100+#0);
finally
CloseFile(f);
end;
end;

Espero que esto resuelva tu problema.
Saludos.

lroblesco 24-03-2005 23:21:02

Star Sp200
 
Lamento no poder ayudar mucho, pero me gustaria saber los codigos de escape para la impresora de tickets star sp200 ya que yo utuilizo esa para hacer unas impresiones, se los agradeceria mucho. El que mas me interesa es el que sirve para cambiar el tamaño de la letra, pero si tienes una lista compilada que mejor.
De antemano Gracias

FOURIER 12-12-2006 09:17:54

Espero Les Sirva
 
PARA ABRIR AMBAS EL CAJON CON AMBAS IMPRESORAS YO OCUPO LA CLASE PRINTER QUE SE ENCUENTRA DENTRO DE LA UNIDAD QPRINTERS es decir en UNIT ponemos QPrinters
Unit QPRINTERS



ya agregada esta podemos usarla de la siguiente forma:

Printer.BeginDoc;
Printer.Canvas.Font.Size:=1;
Printer.Canvas.Font.Name:='Control';
Printer.Canvas.TextOut(10,10,'A');
Printer.EndDoc;

Y esto te abrirá el Cajón ya sea con la Epson y o la Star, ami me ha funcionado


La franja horaria es GMT +2. Ahora son las 22:39:10.

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