Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login

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.

(opcional) Você poderia nos ajudar a entender onde erramos?

Confirmar voto
Publicidade


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;  

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ajude-nos a evoluir: você gostou do post?  (1)  (0)

(opcional) Onde podemos melhorar?

Confirmar voto
Compartilhe:
Ficou com alguma dúvida?