Nueva página con QuickReport

[Carmelo Cash]

Hola Foro:

Tal vez me podrán orientar como resolver este tema con QuickReport.

En el formulario de reporte pegué una banda QRBand1 y sobre esta
estoy creando las etiquetas en tiempo de ejecución.

El problema se me presenta cuando tengo que pasar a la siguiente hoja.

En el código que les copio un ejemplo. La etiqueta A la imprime perfectamente, ahora si saco las llaves para que imprima la etiqueta B en la siguiente página, aparece un error.

Desde ya muchisimas gracias por su atención.


procedure TForm1.Button1Click(Sender: TObject);
Var
A,B: TQRLabel;
begin

A:=TQRLabel(Quickreport2.QRBand1.AddPrintable(TQRLabel));
A.Caption:='Página 1';
A.Top:=10;
A.Left:=10;

{
QuickReport2.NewPage;
QuickReport2.QRBand1.ForceNewPage:=true;

B:=TQRLabel(Quickreport2.QRBand1.AddPrintable(TQRLabel));
B.Caption:='Página 2';
B.Top:=10;
B.Left:=10;
}

with QuickReport2 do
try
PREVIEW;
finally
free;
end;

end;

PD. Odio los teclados que tienen una tecla POWER al lado de la tecla Supr. Tuve que escribir este mensaje 3 veces. Que bol...

[vivamotos]

http://www.foroexperiencia.com/viewtopic.php?f=20&t=134