Boa tarde, conseguiram resolver esse problema de impressão quando o CFe possui muitos itens ?
Eu resolvi alterando a função function TACBrSATExtratoFortesFr.CalcularTamanhoDaPagina(AReport: TRLReport): Integer;
function TACBrSATExtratoFortesFr.CalcularTamanhoDaPagina(AReport: TRLReport
): Integer;
var
TotalPaginaPixel: Integer;
tamanhocomponente,tamanhoitem: integer;
begin
if AReport = rlVenda then
// Calculando o tamanho da Página em Pixels //
TotalPaginaPixel := rlbsCabecalho.Height +
rlbRodape.Height +
round( rlbDetItem.Height * ACBrSATExtrato.CFe.Det.Count )
else
TotalPaginaPixel := rlbCabecalhoCan.Height +
rlbDadosCupomCancelado.Height +
rlbCanRodape.Height +
ifthen( (ACBrSATExtrato.CFe.ide.tpAmb = taHomologacao), rlbTeste.Height, 0 ) ;
Result := max( 100, 96 + round(TotalPaginaPixel/MMAsPixels));
end;