Torreblanca
13-12-2007, 22:06:23
Necesito hacer un reporte en quickReport tomando como fuente dos listbox normales sin conexión a bases de datos. En el formulario de QuickReport tengo un pageheader, un detail band y un pagefooter. Creo los QrLabels en tiempo de ejecución de la sig. manera
Código Delphi [-] (http://www.clubdelphi.com/foros/#) procedure TFrmChofer.Button3Click(Sender: TObject);
var y : integer;
begin
conteo:=FrmChofer.ListBox1.Count;
tp:=45; // top del qrLabel dentro del detail band
for y:=1 to conteo do
begin lblNombre:=TQRLabel.Create(self); lblNombre.Parent:=FrmRepAbrevChofer.QRBand2; lblNombre.Top:=tp; lblNombre.Left:=10; lblNombre.Width:=50; lblNombre.Caption:=FrmChofer.ListBox2.Items[y-1]; lblNorm:=TQRLabel.Create(self); lblNorm.Parent:=FrmRepAbrevChofer.QRBand2; lblNorm.Top:=tp; lblNorm.Left:=210; lblNorm.Width:=100; lblNorm.Caption:=FrmChofer.ListBoxPromNorm.Items[y-1]; End;
Lo que he intentado y no me ha salido es imprimir 10 registros en cada pagina del Qreport, pero le he intentado con las propiedades del detail band como ForceNewPage y la propiedad del Qreport NewPage y ninguna me da resultados
algo asi intento
Código Delphi [-] (http://www.clubdelphi.com/foros/#) if y > 10 then
begin
FrmRepAbrevChofer.QuickRep1.NewPage;
FrmRepAbrevChofer.QRBand2.ForceNewPage:=true;
end;
Alguien me puede dar una idea o alguna forma para resolver este dilema :confused:
De antemano les agradesco su apoyo
Saludos!!!
Código Delphi [-] (http://www.clubdelphi.com/foros/#) procedure TFrmChofer.Button3Click(Sender: TObject);
var y : integer;
begin
conteo:=FrmChofer.ListBox1.Count;
tp:=45; // top del qrLabel dentro del detail band
for y:=1 to conteo do
begin lblNombre:=TQRLabel.Create(self); lblNombre.Parent:=FrmRepAbrevChofer.QRBand2; lblNombre.Top:=tp; lblNombre.Left:=10; lblNombre.Width:=50; lblNombre.Caption:=FrmChofer.ListBox2.Items[y-1]; lblNorm:=TQRLabel.Create(self); lblNorm.Parent:=FrmRepAbrevChofer.QRBand2; lblNorm.Top:=tp; lblNorm.Left:=210; lblNorm.Width:=100; lblNorm.Caption:=FrmChofer.ListBoxPromNorm.Items[y-1]; End;
Lo que he intentado y no me ha salido es imprimir 10 registros en cada pagina del Qreport, pero le he intentado con las propiedades del detail band como ForceNewPage y la propiedad del Qreport NewPage y ninguna me da resultados
algo asi intento
Código Delphi [-] (http://www.clubdelphi.com/foros/#) if y > 10 then
begin
FrmRepAbrevChofer.QuickRep1.NewPage;
FrmRepAbrevChofer.QRBand2.ForceNewPage:=true;
end;
Alguien me puede dar una idea o alguna forma para resolver este dilema :confused:
De antemano les agradesco su apoyo
Saludos!!!