Artigos Delphi Dicas - Imprimir Direto Para Impressora


Imprimir Direto Para Impressora


procedure TForm1.Button1Click(Sender: TObject);

var

F : TextFile;

i : integer;

begin

AssignFile(F,LPT1);

Rewrite(F);

i := 0;

Writeln(F,Teste de impressao - Linha 0);

Writeln(F,Teste de impressao - Linha 1);

Writeln(F,#27#15+Teste de Impressão - Linha 2);

Writeln(F,Teste de impressao - Linha 3);

Writeln(F,#27#18+Teste de Impressão - Linha 4);

Writeln(F,Teste de impressao - Linha 5);

Writeln(F,#12); // Ejeta a página

CloseFile(F);

end;