Fórum Salta para próxima Página no FortesReport ? #512007

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;