Boa Tarde,
Não estou conseguindo gerar individualmente os boletos em PDF para cada documento, conforme o código abaixo ele gera o PDF do Ultimo documento processado com o nome do arquivo do primeiro registro.
TblTemp.First;
while not TblTemp.Eof do begin
// *** Salvar os campos do Componente: ACBrBoleto com os dados da EMPRESA e do BANCO ***
ProACBrBoleto;
ACBrBoleto1.ListadeBoletos.Clear;
wVencto := TblTemp.FieldByName('Prorrogacao').AsDateTime;
wCodigo := TblTemp.FieldByName('Codigo').AsInteger;
wCliente := TblTemp.FieldByName('Nome').AsString;
wNumero := TblTemp.FieldByName('NDocto').AsInteger;
// *** Salvar os campos do Componente: ACBrBoleto com os dados do TITULO ***
Titulo := ACBrBoleto1.CriarTituloNaLista;
ProSalvarACBrBol;
// *** Ex.: Boleto29523_14012020_3712.PDF ***
ACBrBoletoFCFR1.NomeArquivo := wPasta + '\Boleto' + IntToStr(wNumero) + '_' + FormatDateTime('ddmmyyyy',wVencto) + '_' + IntToStr(wCodigo) + '.PDF';
ACBrBoleto1.GerarPDF;
TblTemp.Next; // Proximo Registro
end;
desde ja Obrigado.
Ricardo.