Foros Club Delphi - Ver Mensaje Individual

*Caro* · #2 12-01-2010

Hola martita, debes utilizar el evento OnNeedData del QuickReport y colocar un QrLabel en la banda rbDetail.

Código Delphi [-]procedure TForm2.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
  MoreData := Ind<=20;
  if MoreData then
  begin
    QRLabel1.caption := IntToStr(Ind);
    Inc(Ind);
    QuickRep1.NewPage;
  end;
end;

Ind es una variable global que debes inicializarla en 0.

Saluditos