Fórum Impressão direta #132240

zReport (componente)
ou Write (comando)
Segue exemplo
procedure TForm1.Button1Click(Sender: TObject);
var Texto1 : string;
F : TextFile;
Valor : Extended;
t : Integer;
begin
AssignFile(F,’/LPT2´);
Rewrite(F);
T := 21; { Tamanho total da string, que deverá ser impresso }
Texto1 := ‘RAMOS DA’;
Valor := 1.00;
Writeln(F,Format(‘¬s¬’+IntToStr(T-Length(Texto1))+’s¬8.2f’, [Texto1,’
‘,Valor])+
’Fim da linha’);
Texto1 := ‘RAMOS DA INFORM’;
Valor := 100.21;
Writeln(F,Format(‘¬s¬’+IntToStr(T-Length(Texto1))+’s¬8.2f’, [Texto1,’
‘,Valor])+’Fim da linha’);
Texto1 := ‘RAMOS’;
Valor := 1000.10;
Writeln(F,Format(‘¬s¬’+IntToStr(T-Length(Texto1))+’s¬8.2f’, [Texto1,’
‘,Valor])+’Fim da linha’);
Writeln(F,#12); // Ejeta a página
CloseFile(F);
end;