Abrir Cash Drawer

[MITOPE]

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]

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]

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]

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