Boa Noite
Estou com o seguinte problema, quando crio apenas um PDF o ACBRBoleto gera o PDF e funciona, quando gero vários em um Loop e limpo a
quantidade de titulos, ( Quero gerar 1 a 1 ) dá erro na estrutura do PDF. ( Na impressão funciona legal )
Alguem sabe como corrigir ?
Codigo abaixo
inicio do LOOP
Titulo := AcbrBoleto.CriarTituloNaLista;
PreparaBoleto( Titulo );
if ckGeraPdf.Checked then
begin
ACBrBoletoFCFR1.dmBoleto.frxPDFExport.ShowDialog := False;
ACBrBoletoFCFR1.NomeArquivo := Trim(edPasta.Text) + '\Boleto-'+ FormatFloat('000',ACBrBoleto.Banco.Numero)+'-'+RemoveChars( '/;:,\.<>|*!',Trim( ListaNome.asString ))+'-'+RemoveChars('/;:,\.<>|*!',Trim( ListaTitulo.AsString ))+'.pdf';
ACBrBoleto.GerarPDF;
end else begin
ACBrBoletoFCFR1.MostrarPreview := False;
ACBrBoleto.Imprimir;
end;
// gravando no Banco
AcbrBoleto.ListadeBoletos.Clear;
FIM do loop
Obrigado
Hudson