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; 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]); GotoXY(2,tp);
Print(FrmTotalesChofer.ListBoxPromNorm.Items[y-1]); Print(FrmTotalesChofer.ListBoxPromTotal.Items[y-1]); GotoXY(7,tp);
tp:=tp+0.3;
if tp >=12 then begin
NewPage;
SetFont('Arial', 15);
GotoXY(1,1);
PrintCenter('Reporte abreviado de choferes',4);
SetFont('Arial', 8);
tp:=1.3;
end;
end;
end;
end;