Hola tio .... ahi va la solucion
Código Delphi
[-]
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
autonum := 0;
end;
procedure TForm1.QRDBText1Print(sender: TObject; var Value: String);
begin
Inc(autonum);
QRLabel1.Caption := 'llevamos ' + inttostr(autonum) + ' etiquetas';
end;
inicializamos antes de imprimir el quickreport, y en el evento de imprimir cada text le incrementamos uno ... y ya taaaaa.
Un saludo.