Abrir gaveta

Question

Pessoal,

Estou com um programa rodando com uma impressora XPrinter da Schalter para emitir os cupons e uma gaveta de dinheiro conectada a ela.

M@rcelo · Answer

Amigo, tenho o exemplo abaixo guardado nas minhas dicas, mas eu nunca usei nem sei se funciona, mas ai vai
Espero que sirva OK

Enviar Bell Character via LPT1

var
f: TextFile;
begin
// Imprimindo no modo Texto..
AssignFile(f, �LPT1�);
Rewrite(f);
Write(f, #07);
CloseFile(f);
end;