Delphi dicas

Abrir gaveta de dinheiro (gerbô) / atraves da epson tm-u200pd 111

Procedure TForm1.Button1Click(Sender: TObject);

var Impressora:TextFile;

begin

        AssignFile(Impressora,'LPT1');

        Rewrite(Impressora);



        Writeln(impressora,#27#112#0#3#254);



        System.Close(Impressora);



end;