Pesquisar na Comunidade

implementei a rotina de importação em pdf do quickrep na unit ACBrBoletoFCQuickFr colocar um QRPDFFilter1 no form. na procedure TACBrBoletoFCQuick.Imprimir (linha 544): procedure TACBrBoletoFCQuick.Imprimir; var frACBrBoletoQuick : TACBRBoletoFCQuickFr; RLLayout : TQuickRep; nomeArquivopdf : string; //MultiExport : TQRMultiExport ; //FiltroExportacao: TQRPAbstractExportFilter; //HTMLFilter : TQRHTMLDocumentFilter ; begin inherited Imprimir; // Executa verificações padroes frACBrBoletoQuick := TACBrBoletoFCQuickFr.Create(Self); try with frACBrBoletoQuick do begin case LayOut of lCarne : RLLayout:= BoletoCarne; lPadraoEntrega : RLLayout:= LayoutPadraoEntrega; else RLLayout := LayoutBoleto; end; RLLayout.PrinterSettings.Copies := NumCopias ; case Filtro of fiPDF : begin try rllayout.Prepare; QRPDFFilter1.CompressionOn := true; case LayOut of lCarne : nomeArquivopdf := txtNomeSacado4.caption; lPadraoEntrega : nomeArquivopdf := txtNomeSacado6_2.caption; lPadrao : nomeArquivopdf := txtNomeSacado2.caption; else nomeArquivopdf := txtNomeSacado2.caption; end; if DirectoryExists(extractfilepath(paramstr(0))+'BoletoPDF') = false then CreateDir(extractfilepath(paramstr(0))+'BoletoPDF'); self.nomearquivo := extractfilepath(paramstr(0))+'BoletoPDF\'+nomearquivopdf+'.pdf'; RLLayout.ExportToFilter(TQRPDFDocumentFilter.create(self.nomearquivo)); except end; end ; fiHTML : begin (* Codigo abaixo comentado pois não funciona... HTMLFilter := TQRHTMLDocumentFilter.Create( NomeArquivo ); try RLLayout.ExportToFilter( HTMLFilter ); finally HTMLFilter.Free ; end ; *) raise Exception.Create( ACBrStr('Exportação para HTML não implementada no QuickReport') ) ; end ; else begin if MostrarPreview then RLLayout.PreviewModal else begin if MostrarSetup then RLLayout.PrinterSetup ; if (RLLayout.Tag = 0) then RLLayout.Print; end ; end end ; end ; finally frACBrBoletoQuick.Free ; end; end;