ayuda urgente con qreport por favor

[mierda]

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.