[marcoszorrilla]

Código Delphi [-]
procedure TfrLst_Gastos.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin

n:=n+1;

If n = 5 then
begin
Detailband1.ForceNewpage:=True;
n:=0;
end;



end;

Un Saludo.