Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
Impressão utilizando acesso direto a porta com Delphi
var
Impressora: TextFile;
begin
AssignFile(Impressora, 'lpt1:');
ReWrite(Impressora);
WriteLn(Impressora, 'Olá Mundo!');
WriteLn(Impressora, 'Isto é uma impressão direta.');
WriteLn(Impressora, #15'Imprimindo em condensado.'#18);
CloseFile(Impressora);
end;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment