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;
procedure TForm1.Button1Click(Sender: TObject);