Boa tarde,
quando vou impirmir mais de 3 notas ao mesmo tempo recebo esse erro.
rastreei de onde esse erro está vindo, é no arquivo :
Acbr\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fast\ACBrNFeDANFEFRDM.pas
procedure TACBrNFeFRClass.AjustaMargensReports;
var
Page: TfrxReportPage;
I: Integer;
begin
for I := 0 to (frxReport.PreviewPages.Count - 1) do
begin
if frxReport.Pages[I] is TfrxReportPage then
begin
Page := frxReport.PreviewPages.Page[I];
if (DANFEClassOwner.MargemSuperior > 0) then
Page.TopMargin := DANFEClassOwner.MargemSuperior;
if (DANFEClassOwner.MargemInferior > 0) then
Page.BottomMargin := DANFEClassOwner.MargemInferior;
if (DANFEClassOwner.MargemEsquerda > 0) then
Page.LeftMargin := DANFEClassOwner.MargemEsquerda;
if (DANFEClassOwner.MargemDireita > 0) then
Page.RightMargin := DANFEClassOwner.MargemDireita;
frxReport.PreviewPages.ModifyPage(I, Page);
end;
end;
na linha 2574 a quantidade de paginas é positiva, mas ao tentar acessar uma pagina na linha 2576 eu recebo esse erro de list index of bounds(2),parece que o componente
de relarorios não está sabendo contar as paginas existentes.