Yo utilizo el siguiente procedure:
procedure AbrirCajon();
var
nPrn: TextFile;
begin
AssignFile(nPrn, 'COM2');
Rewrite(nPrn);
WriteLn(nPrn,#27+#112+#0+#27+#112+#0);
CloseFile(nPrn);
end;
Eso sí, mi cajon portamonedas esta conectado a la impresora de ticket y la impresora de ticket al COM2.
Si la impresora estuviera conectada al LPT1, solo tienes que cambiar donde pone COM2 por LPT1.
Comentarte también que con las impresoras que lo he probado son Epson.
Espero que te sirva, saludos.
__________________
El saber no ocupa lugar.
|