Ir para conteúdo
  • Cadastre-se

dev botao

Nao Gerar O Pdf


Hetosoft Sistemas
Ver Solução Respondido por Hetosoft Sistemas,
  • Este tópico foi criado há 3776 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 ?

Editado por hetoandrade
Link para o comentário
Compartilhar em outros 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

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.