Erro ao imprimir 4 ou mais notas - erro list index out of bounds(2)

[Jean Junio]

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. 

 

[windsoft]

Eu já relatei o mesmo problema, para corrigir basta voce alterar a linha:

if frxReport.Pages[I] is TfrxReportPage then

para 
 

if frxReport.PreviewPages.Page[I] is TfrxReportPage then

 

 

[Juliomar Marchetti]

NO svn a correçaõ

[Jean Junio]

bom dia, atualizei o acbr. problema corrigido!

 

obg

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.