DevMedia
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.

[fechar]

Você não gostou da qualidade deste conteúdo?

(opcional) Você poderia comentar o que não lhe agradou?

Confirmo meu voto negativo


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;  

O que você achou deste post?
Conhece a assinatura MVP?
Serviços

Mais posts