Ver Mensaje Individual
  #15  
Antiguo 28-11-2007
Avatar de ingabraham
ingabraham ingabraham is offline
Miembro
 
Registrado: ago 2007
Posts: 614
Reputación: 19
ingabraham Va por buen camino
Caso Resuelto y Gracias

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;

Última edición por ingabraham fecha: 28-11-2007 a las 15:06:44.
Responder Con Cita