Mandar a imprimir despues q se muestre el qreport

[ingabraham]

Compañeros mi programa es de Nomina

Código Delphi [-]
procedure TForm29.QRGroup1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
 
  if (NHOJAS mod  4=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;
       NHOJAS:=NHOJAS+1;
End;

pero al momento de imprimir, no se me cumple esta condicion, se imprime otra cosa, por eso quiero q se genere el reporte y luego se imprima