Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Nao Gerar O Pdf


hetoandrade
Go to solution Solved by hetoandrade,
  • Este tópico foi criado há 3106 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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 by hetoandrade
Link to comment
Share on other sites

  • Consultores

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.

Consultor SAC ACBr Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Link to comment
Share on other sites

  • Membros Pro
  • Solution

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 ;
 

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.