Salta para próxima Página no FortesReport ?

Delphi

26/02/2015

Tenho a leitura de um arquivo txt onde estou gravando o resultado em .pdf, o problema é que só gravo a 1 página, alguém sabe como poderia gravar o restante em novas paginas dentro do mesmo arquivo?

Agradeço

Estou usando o : RLPDFFilter1, RLGraphicStorage1, RLHTMLFilter1




procedure TfrmPrincipal.GravarRelatorioPdf(caminhoarquivo: String);
var
   arquivo: TStringList;
   i: Integer;
   ArquivoFinal:TRLGraphicStorage;
begin

 if FileExists(caminhoarquivo) then
  begin
       arquivo := TStringList.Create;
    try
       arquivo.LoadFromFile(caminhoarquivo);

    for i := 0 to arquivo.Count - 1 do   begin
        RichEditConteudo.Lines.Add(arquivo[i]);
    end;
      //  arquivo.SaveToFile('c:\temp\arquivo1.txt');
     finally
       RLMemo1.Lines.Add(RichEditConteudo.Lines.Text);
       FreeAndNil(arquivo);

       RLReport1.Prepare;
       ArquivoFinal:= RLReport1.Pages;
       RLPDFFilter1.FileName :=  caminhoarquivo + '.pdf' ;
       RLPDFFilter1.FilterPages(ArquivoFinal);
     end;
  end;
Itamar Souza

Itamar Souza

Curtidas 0

Respostas

Itamar Souza

Itamar Souza

26/02/2015

Alguém tem alguma sugestão?
GOSTEI 0
POSTAR