Mensagem "lista De Boletos Está Vazia" No Acbrboleto Fortes

[Ana Fernanda]

Estou tentando imprimir meu primeiro boleto com acbrboleto fortes e estou recebendo está mensagem. Alguém pode me ajudar?

Ana Fernanda

[MARCELO RODRIGUES]

Boa tarde tarde!

  Dê uma olha no demo, vc que inserir os boletos na lista, se for de uma tabela faça uma while na tabela, segue abaixo um exemplo:

 

  ibqBuscaPagamento.First;

//gerando o boleto
  ACBrBoleto1.ListadeBoletos.Clear;

  while not ibqBuscaPagamento.Eof do
   begin
   Titulo := ACBrBoleto1.CriarTituloNaLista;
   with Titulo do
    begin
     LocalPagamento    := 'PAGAR PREFERENCIALMENTE NO BANCO SANTANDER';
     Vencimento        := ibqBuscaPagamentoDT_PAGTO_RECEB.Value;
     DataDocumento     := Date;
     NumeroDocumento   := IntToStr(ibqBuscaPagamentoID_PAGTOS_RECEB.Value);
     EspecieDoc        := 'DM';
     Aceite            := atNao;
     DataProcessamento := Date;
     NossoNumero       := IntToStr(ibqBuscaPagamentoID_PAGTOS_RECEB.Value);
     Carteira          := '101';
     ValorDocumento    := ibqBuscaPagamentoVALOR.Value;
     Sacado.NomeSacado := ibqBuscaAlunoNOME.Value;
     Sacado.CNPJCPF    := ibqBuscaAlunoCPF.Value;
     Sacado.Logradouro := ibqBuscaAlunoENDERECO.Value;
     Sacado.Numero     := ibqBuscaAlunoNUM_END.Value;
     Sacado.Bairro     := ibqBuscaAlunoBAIRRO.Value;
     Sacado.Cidade     := ibqBuscaAlunoCIDADE.Value;
     Sacado.UF         := ibqBuscaAlunoUF.Value;
     Sacado.CEP        := ibqBuscaAlunoCEP.Value;
     Mensagem.Text     := 'REFERENTE A:' + DBLookupComboBox1.Text + #13 +
     'Após 1 dia cobrar mora diária de R$2,00  ' + #13 +
     'Após 1 dia cobrar 4% de multa ' + #13 +
     'Este boleto será protestado pelo banco após 15 dias de vencimento';
   end;
 

Marcelo