Nao Gerar O Pdf

[Hetosoft Sistemas]

atualizei o acbr coloquei no ACBr.inc

 

 

// Definições para o Quick Report
// Descomente a linha abaixo caso o Quick Report tenha suporte a PDF
//------------------------------------------------------------------------------
{$DEFINE QReport_PDF}

 

 

a funcao

ACBrBoleto1.GerarPDF;

 

e estou com QReport 5

 

nao ta mais gerando ?

Edited November 25, 2013 by hetoandrade

[Italo Giurizzato Junior]

Bom dia Heto Andrade,

 

Essa diretiva de compilação foi criada para atender os componentes ACBrNFe, ACBrCTe, ACBrMDFe e ACBrNFSe, não sei lhe informar se o componente ACBrBoleto faz uso dessa diretiva.

[Hetosoft Sistemas]

Descomentei

 

ACBrBoletoFCQuickFr


uses
  SysUtils, StdCtrls, Classes, Graphics, Controls, Forms, Dialogs, ACBrBoleto,
  QRMultiExport, QRCtrls, QuickRpt, ExtCtrls, QRExport, ACBrBarCode, QRWebFilt, QRPDFFilt;
//  RLFilters, RLPDFFilter ;

 

 

 

 


      case Filtro of
          fiPDF  :
            begin
              FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo);
              try
                TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true;
                RLLayout.ExportToFilter(FiltroExportacao);
              finally
                FiltroExportacao.Free;
              end;
               MultiExport := TQRMultiExport.Create(self);
               try
                  MultiExport.Report       := RLLayout ;
                  MultiExport.ExportFormat := qrxPDF ;
                  MultiExport.FileName     := NomeArquivo ;
                  MultiExport.ShowDialog   := MostrarSetup ;
                  MultiExport.DPI          := 300 ;
                  MultiExport.DoExport ;
               finally
                  MultiExport.Free ;
               end ;
            end ;