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...