ricnelson

Você comenta ou retira a variável FINDICE que estava no OnCreate do Form e coloca no BeforePrint do QR conforme abaixo: procedure TACBrBoletoFCQuickFr.FormCreate(Sender: TObject); begin // fIndice := 0; fBoletoFC := TACBrBoletoFCQuick(Owner) ; // Link para o Pai txtSwHouse.Caption := BoletoFC.SoftwareHouse ; ACBrBarCode1.Width := imgBarra.Width ; ACBrBarCode1.Height:= imgBarra.Height ; end; procedure TACBrBoletoFCQuickFr.LayoutBoletoBeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin fIndice := 0; end;

o valor do findice esta sendo incrementado para 2 na hora da impressão , como não tem pagina 2 ele não imprime voce deve tirar ele do oncreate do quickrep e colocar ele no beforeprint ai vai da certo!! obs O problema todo foi só o lugar que foi setado o findice, mudando para esse local, pronto tudo certo . qualquer coisa nelson_ricardo@ig.com.br