Reimprimir cabeçalho com textfile

04/12/2003

1

Tenho um relatorio de várias páginas(35), usando TextFile(sem driver de impressão). Orelatorio fuinciona muito bem, só que na próxima página, necessito reimprimir o cabeçalho e não sei como fazer isso. Alguém sabe como fazer? O relatorio está mais ou menos assim:

var
arq: textfile;
begin
assignfile(arq,lpt1´);
rewrite(arq);
writeln(arq, ´Lista de Precos´);//Cabeçalho1
writeln(arq, ´nonenoenone.....);//cabeçalho2
tabela.first;
while...
...
end;
closefile(arq);
end;


Responder

Posts

06/12/2003

Edilcimar

após cada impressão acrescente um número para linha e se for maior que um determinado valor então zere e imprima o cabeçalho
Linha := 0;
With table1 do
Begin
If linha = 0 then
ImprimaCabecalho;
writleln(linhaaserimpressa);
Linha := Linha + 1;
If linha >= 50 then
Linha := 0;
Next;
End;


Responder