Etiquetas de código de barras en QuickReport

[[fjcg02]]

Básicamente pones un report con una banda...

pones una variable private o publica...

private
i:integer;


pones un botón que haga el preview del report poniendo la variable a 0
i:= 0;
QReport1.Preview;

en el procedure onneeddata del report pones esto...

Código Delphi [-]
procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
  i:= i+1;
  if i<=10 then
  begin
    moreData:= True;
    QRLabel1.Caption:= 'Hola '+inttostr(i);
  end;
end;

y ya está...
Saludos