É pelo demo que estou testando!
Basicamente incluo o boleto conforme exemplo abaixo!
var
Titulo: TACBrTitulo;
begin
Titulo := dm.ACBrBoleto.CriarTituloNaLista;
with Titulo do
begin
Vencimento := StrToDate(edtVencimento.Text);
DataDocumento := StrToDate(edtDataDoc.Text);
NumeroDocumento := edtNumeroDoc.Text;
EspecieDoc := edtEspecieDoc.Text;
if cbxAceite.ItemIndex = 0 then
Aceite := atSim
else
Aceite := atNao;
DataProcessamento := Now;
Carteira := edtCarteira.Text;
NossoNumero := edtNossoNro.Text;
ValorDocumento := StrToCurr(edtValorDoc.Text);
Sacado.NomeSacado := edtNome.Text;
Sacado.CNPJCPF := OnlyNumber(edtCPFCNPJ.Text);
Sacado.Logradouro := edtEndereco.Text;
Sacado.Numero := edtNumero.Text;
Sacado.Bairro := edtBairro.Text;
Sacado.Cidade := edtCidade.Text;
Sacado.UF := edtUF.Text;
Sacado.CEP := OnlyNumber(edtCEP.Text);
ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text, 0);
LocalPagamento := edtLocalPag.Text;
ValorMoraJuros := StrToCurrDef(edtMoraJuros.Text, 0);
ValorDesconto := StrToCurrDef(edtValorDesconto.Text, 0);
ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text, 0);
DataMoraJuros := StrToDateDef(edtDataMora.Text, 0);
DataDesconto := StrToDateDef(edtDataDesconto.Text, 0);
DataAbatimento := StrToDateDef(edtDataAbatimento.Text, 0);
DataProtesto := StrToDateDef(edtDataProtesto.Text, 0);
PercentualMulta := StrToCurrDef(edtMulta.Text, 0);
Mensagem.Text := memMensagem.Text;
OcorrenciaOriginal.Tipo := toRemessaBaixar;
Instrucao1 := PadRight(trim(edtInstrucoes1.Text), 2, '0');
Instrucao2 := PadRight(trim(edtInstrucoes2.Text), 2, '0');
end;
E depois clico duas vezes no botão imprimir!
Código abaixo!
dm.ACBrBoletoReport.FastReportFile:= 'D:\projetos\ACBR\trunk2\Exemplos\ACBrBoleto\Delphi\Report\BoletoNovo.fr3';
dm.ACBrBoletoReport.DirLogo:='D:\projetos\ACBR\trunk2\Fontes\ACBrBoleto\Logos\Colorido\';
dm.ACBrBoleto.Imprimir;