Te sugiero dos formas de hacerlo:
1. por el siguiente codigo en el evento Onbeforeprint del Summary
Código Delphi
[-]
procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);
begin
if engine.freespace > reportsummary1.height then
begin
Engine.CurY := Engine.PageHeight -reportsummary1.height -pagefooter1.Height - 1;
end;
end;
2. Usa un Pagefooter en vez de un ReportSummary y en su evento Onbeforeprint pon el siguiente codigo:
Código Delphi
[-]procedure PagefooterOnbeforePrint (Sender : TfrxComponent);
begin
PageFooter1.Visible := (Page#) = (TotalPages#);
end;
NOTA Cambia los parentesis ( ) por < > ya que al darle formato Delphi no salia el texto
Espero que te sirva.
P.D. Que gusto ver a otro Boliviano en el Club Delphi, ya conte 5. Espero encontrar mas y que algun dia podamos formar el Grupo Boliviano de Usuarios de Delphi. Si hay mas Bolivianos registrados, reportense y a ver que podemos hacer juntos.