Acbrboletofcquick Não Gera O Pdf

[FabioMachado]

Não estou conseguindo gerar o PDF com o componente  .. não dá nenhum erro simplesmente não faz nada.

 

     ACBrBoletoFCQuick1.NomeArquivo := 'C:\Livre\rel\BoletoPDF\'+'Boleto'+inttostr(I)+'.pdf';

     ACBrBoleto.GerarPDF;

 

 

Ja a opção de imprimir funciona;

 

[Juliomar Marchetti]

Então chegou a conferir se no ACBr.inc está descomentado a linha de exportação com quick report para pdf?

[FabioMachado]

Pois e ja tinha verificado isso sim, mesmo pq a NFe tb uso o quickreport e exporta legal o PDF.

[FabioMachado]

Testando aqui o componente descobri as seguintes linhas comentadas:

 

            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 ;

 

 

Será esse o motivo pelo qual não gera o PDF do Boleto?

[Ivan de Souza]

Fazendo alguns ajustes nessa unit, consigo gerar o PDF.

O problema é que quando abro o arquivo PDF pelo Reader diz que não há suporte para esse arquivo ou o arquivo está danificado.

Alguém já passou por isso e sabe dizer o que é?

[Ivan de Souza]

ops ... foi mal, gente! Mas é que quando procurei algo pelo fórum não achei nada. Quando busquei pelo google vi esse link:

 

resolveu o problema.

 

Gostaria de saber se vai estar no svn essa alteração.

 

Obrigado a todos!

[FabioMachado]

Gostaria que alguém atualizasse o svn do acbrbole .. pq o que ta la não funfa, mais como demonstrado no post do Ilsouza a correção ja havia sido feita. Peguei o arquivo .pas com o Ilsouza e ta funcionando normal agora, segue anexo o arquivo para atualização do SVN.

ACBrBoletoFCQuickFr.pas

Editado 28 Setembro, 2013 por FabioMachado

[Diogo Beraldi]

Resolvi da Seguinte forma:

 

ACBRBoletoFCQuickFr

 

Inclui o componente: QRPDFFilter

 

em

 

procedure TACBrBoletoFCQuick.Imprimir;
 

Inclui a variavel para exportação

 

Var   AExportFilter : TQRPDFDocumentFilter;

 

alterei as linhas, elas estavam desativadas com //

 

        case Filtro of
          fiPDF  :
            begin
               AExportFilter := TQRPDFDocumentFilter.Create(NomeArquivo);
               try
                  RLLayout.ExportToFilter(AExportFilter);
               finally
                  AExportFilter.Free;
               end;
            end ;

[Juliomar Marchetti]

Resolvi da Seguinte forma:

 

ACBRBoletoFCQuickFr

 

Inclui o componente: QRPDFFilter

 

em

 

procedure TACBrBoletoFCQuick.Imprimir;

 

Inclui a variavel para exportação

 

Var   AExportFilter : TQRPDFDocumentFilter;

 

alterei as linhas, elas estavam desativadas com //

 

        case Filtro of

          fiPDF  :

            begin

               AExportFilter := TQRPDFDocumentFilter.Create(NomeArquivo);

               try

                  RLLayout.ExportToFilter(AExportFilter);

               finally

                  AExportFilter.Free;

               end;

            end ;

Bom dia

obrigado por repassar informação mas já foi postado

favor ler regras do fórum ! não precisa postar em todos os tópicos, direcione um link para a resposta que já está ótimo!