Buscar por:

Imprimindo em impressora matricial em modo caractere

Código

Procedure TForm1.Button1Click(Sender: TObject); 

var Arquivo : TextFile; 

begin 

AssignFile(Arquivo,'LPT1'); 

Rewrite(Arquivo); 

Writeln(Arquivo,'Teste de impressao - Linha 0'); 

Writeln(Arquivo,'Teste de impressao - Linha 1'); 

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

Writeln(Arquivo,'Teste de impressao - Linha 3'); 

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

Writeln(Arquivo,'Teste de impressao - Linha 5'); 

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

CloseFile(Arquivo); 

end;