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;

Boa tarde, não sei se estou no local certo para sugerir uma correção nos ACBrBoletoFCFortesFr.pas e ACBrBoletoFCQuickFr.pas A correção que estou sugerindo refere-se a um probleminha com alguns tios de impressoras, ondo a impressão dos boletos em Layout Carne não esta ocorrendo de forma correta, ou seja não conseguia ajustar três boletos por página, imprimindo apenas 2 boletos. A alteração que fiz foi bem simples mudei, no módulo ACBrBoletoFCFortesFr.pas alterei a margem superior para 3mm e a margem inferior para 0mm e o RLBand3 pata o Heigth para 357, e o ACBrBoletoFCQuickFr.pas alterie a margem superior para 3mm e a margem inferior para 0mm. Em anexo os ".pas" alterados. ACBrBoletoFCQuickFr.pas ACBrBoletoFCFortesFr.pas