Fórum Gravar relatório em pdf usando o fortes reporte #549846

procedure TfrmConsultaPedido.btnEnviarEmailClick(Sender: TObject); 
var 
  sPathArquivo    : String; 
  Arquivo         :TRLGraphicStorage; 
  Controle        :Integer; 
  NumeroPedido    : String; 
begin 

      //verifica se a pasta existe 
      if not DirectoryExists(Public_PastaGravarRelatorio) then 
       begin 
          ForceDirectories(Public_PastaGravarRelatorio); 
       end; 

      try 
               //salva o relatório para envio 
              frmRelPedidoVenda := TfrmRelPedidoVenda.Create(Application); 
              frmRelPedidoVenda.RLReport1.Prepare; 
              Arquivo:= frmRelPedidoVenda.RLReport1.Pages; 
              frmRelPedidoVenda.RLPDFFilter1.FileName := 'nome.pdf' ; 
              frmRelPedidoVenda.RLPDFFilter1.FilterPages(Arquivo); 
              sPathArquivo := frmRelPedidoVenda.RLPDFFilter1.FileName; 
      finally 
          FreeAndNil(frmRelPedidoVenda); 
      end; 


end;