QuickReport y creacion de paginas en tiempo de ejecución

[afxe]

No está muy claro tu problema, pero creo que te he entendido. Intenta esto:
Declaras dos variables privadas, una vIndice y otra vContador. En el evento BeforePrint del QuickReport pones vIndice a cero y en el eveto onStartPage incializas vContador a cero.

Usa el evento OnNeedData para incrementar vIndice e ir accediendo a los elementos del ListBox, poniendo MoreData a False cuando llegues al final de la lista.

En el evento AfterPrint de la banda de detalle incremetas vContador, y si vContador llega a 10 entonces llamas al método Newpage (QuickRep1.NewPage) .

Puedes tener creado los qrlabels en tiempo de diseño, y si quieres ocultar alguno para que no se imprima usa la propiedad enabled del qrlabel en el evento BeforePrint de la banda.

Saludos.

[Torreblanca]

Gracias afxe, no habia tenido tiempo para responder, probe la solución que me ofreciste, pero creo que hay algo mal en mi aplicación por que la logica es la correcta pero a la hora de implementarlo no mas no sale. Creo que he desistido de usar QuickReport para este reporte por lo menos, le encontre la solución usando comandos de Rave Reports. Te agradesco la atención para contestar a mi pregunta.

Saludos!!!

Adjunto el pedazo de código con el que resolví mi problema en Rave Reports para futuras consultas.

Código Delphi [-]
procedure TFrmChofer.RvSystem1Print(Sender: TObject);
var
y, x : integer;
begin
  with Sender as TBaseReport do
  begin
  x:=FrmChofer.ListBoxChofer.Count;
  y:=1;
  tp:=1.3;   //tp es el top de la hoja del reporte
    SetFont('Arial', 15);
    GotoXY(1,1);
    PrintCenter('Reporte de choferes',4);
    SetFont('Arial', 8);
for y:=1 to x do
  begin
     GotoXY(0.5,tp);
     Print(FrmTotalesChofer.ListBoxChofer.Items[y-1]); // Nombre chofer
     GotoXY(2,tp);
     Print(FrmTotalesChofer.ListBoxPromNorm.Items[y-1]); //Boletos     Normales
     Print(FrmTotalesChofer.ListBoxPromTotal.Items[y-1]); //Suma Ventas
     GotoXY(7,tp);
     tp:=tp+0.3;
      
      if tp >=12 then   //Empieza en una nueva pág. cuando llega a este punto
         begin
          NewPage;
          SetFont('Arial', 15);
          GotoXY(1,1);
          PrintCenter('Reporte abreviado de choferes',4);
          SetFont('Arial', 8);
          tp:=1.3;
         end;
   end;
     end;
end;