Fórum quick report +pdf #480108

var config: TIniFile; caminhoP, data, hora: String;
begin
      config := TIniFile.Create(extractfiledir(ParamStr(0))+'\config.ini'); //Abre o arquivo INI 
      caminhoP := config.ReadString('PDF','pasta',''); //Pega o caminho para salvar o PDF (Arquivo INI)
      if DirectoryExists(caminhoP) then //Verifica se a pasta realmente existe
      begin
        data := FormatDateTime('dd-mm-yyyy',Date()); //Formando o nome do arquivo
        hora := FormatDateTime('hh-mm-ss',Time()); //Formando o nome do arquivo
        caminhoP := caminhoP + '\SAIDA_'+ data + '_' + hora+'.PDF'; //Formando o nome do arquivo
        QRPCSaidas.ExportToFilter(TQRPDFDocumentFilter.Create(caminhoP)); //Gerando o PDF
        MessageDlg('PDF gerado em: ' + caminhoP, mtConfirmation, [mbOK],0);
      end
      else
      begin
        CreateDir(caminhoP); //Se a pasta não existir ele cria o diretório
        data := FormatDateTime('dd-mm-yyyy',Date()); //Formando o nome do arquivo
        hora := FormatDateTime('hh-mm-ss',Time()); //Formando o nome do arquivo
        caminhoP := caminhoP + '\SAIDA_'+ data + '_' + hora+'.PDF'; //Formando o nome do arquivo
        QRPCSaidas.ExportToFilter(TQRPDFDocumentFilter.Create(caminhoP)); //Gerando o PDF
        MessageDlg('PDF gerado em: ' + caminhoP, mtConfirmation, [mbOK],0);
      end;
      QRPCSaidas.Preview;
end;