Dicas - Imprimir Direto Para Impressora

Veja nesta dica, o código responsável por imprimir um documento no delphi, neste caso, a impressão é feita diretamente, sem passar por configurações.


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;  

Ebook exclusivo
Dê um upgrade no início da sua jornada. Crie sua conta grátis e baixe o e-book

Artigos relacionados