Nomina Qreport

[ingabraham]

Agradezco a todos la ayuda, el problema lo resolvi, con una pequeña orientación que me brindo un colega.
Gracias a todos y aqui esta el codigo para el que lo necesite en algun futuro.

En el evento BeforePrint del QRGroup del qreport, colocar este codigo para que aparezcan el nro de colillas deseadas

Código Delphi [-]

procedure TForm29.QRGroup1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
     
  if (NHOJAS mod  3 =0 )Then
  begin
      Form29.QRGroup1.ForceNewColumn:=True; //NUEVA HOJA -SALTAR
      Form29.QRGroup1.ForceNewpage := True;
  end
   else
     begin
       Form29.QRGroup1.ForceNewColumn:=false; //COLILLAS UNIDAS
       Form29.QRGroup1.ForceNewpage:=false;
      end;
       
    inc(NHOJAS);

end;