quick report +pdf

Delphi

25/05/2014

galera rodei a internet inteira e não conssegui encontrar o quick report versão 4.0
será que alguem tem o link ou poderia eniar para min

meu email é vencelog@gmail.com

já que eu uso o que vem com o delphi7
e não da para gerar relatorio em pdf so arquivo de de texto ou exel
Jose Silva

Jose Silva

Curtidas 0

Respostas

Guilherme

Guilherme

25/05/2014

Cara ao invés de ficar procurando atualizações pro Quick Report, use essa function, me ajuda muito! Veja:

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;
GOSTEI 0
Jose Silva

Jose Silva

25/05/2014

Guilherme cara valeu mesmo funcionao certinho
pode encerrar o topico
GOSTEI 0
POSTAR