Imprimir direto sem o qreport

Tirado do 750 Dicas e Truques do Delphi..que voce encontra na pagina

www.lloydsoft.hpg.ig.com.br


procedure Say(Nlin,Ncol: Integer;Var LinhaAtual: Integer; Var Arquivo: Text;Texto: Variant);
{Função para impressão de linhas em um relatório}
var
X: Integer;
begin
Write(Arquivo,#13);
If Nlin<>LinhaAtual then
begin
for X :=LinhaAtual to (Nlin-1) do
begin
WriteLn(Arquivo,´´);
LinhaAtual:=LinhaAtual+1;
end;
end;
If Ncol>0 then
begin
For X:=0 to Ncol do
begin
Write(Arquivo,´ ´);
end;
end;
If LinhaAtual >=63 then { 63 É O NÚMERO DA ÚLTIMA LINHA ANTES DO RODAPÉ}
begin
For X:=63 to 67 do { 67 É A QUANTIDADE DE LINHAS POR PÁGINA }
begin
Writeln(Arquivo,´´);
LinhaAtual:=1;
end;
end;
Write(Arquivo,Texto);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ArqPrn: TextFile;
LinhaAtual: Integer;
begin
LinhaAtual:=0;
AssignFile(ArqPrn,´LPT1´);
ReWrite(ArqPrn);
Say(00,00,LinhaAtual,ArqPrn,´Wincomp Informática Ltda´);
Say(01,01,LinhaAtual,ArqPrn,´Wincomp Informática Ltda´);
Say(02,00,LinhaAtual,ArqPrn,´Wincomp Informática Ltda´);
Say(03,03,LinhaAtual,ArqPrn,´Wincomp Informática Ltda´);
Say(04,00,LinhaAtual,ArqPrn,´Wincomp Informática Ltda´);
Say(05,03,LinhaAtual,ArqPrn,´Wincomp Informática Ltda´);
Say(06,00,LinhaAtual,ArqPrn,´Wincomp Informática Ltda´);
Say(07,04,LinhaAtual,ArqPrn,123456789);
Say(08,00,LinhaAtual,ArqPrn,123456789);
Say(09,00,LinhaAtual,ArqPrn,123456789);
CloseFile(ArqPrn);
end;