안녕하세요..^^;;



저도 초보지만..쩝..헤..각설하고..



아래의 소스를 보시면 이해가 되실듯..



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

QuickRpt, Qrctrls, ExtCtrls, StdCtrls;



type

TForm1 = class(TForm)

QuickRep1: TQuickRep;

DetailBand1: TQRBand;

QRLabel1: TQRLabel;

Button1: TButton;

procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;

var PrintReport: Boolean);

procedure QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);

procedure Button1Click(Sender: TObject);

procedure DetailBand1BeforePrint(Sender: TQRCustomBand;

var PrintBand: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;

i : Integer;



implementation



{$R *.DFM}



procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;

var PrintReport: Boolean);

begin

i := 0;

end;



procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);

begin

if i < 10 then begin

inc(i);

moredata := True ;

end

Else

moredata := False;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

QuickRep1.preview

end;



procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;

var PrintBand: Boolean);

begin

QRLabel1.Caption := IntToStr(i);

end;



end.



퀵레포트의 OnNeeddata이벤트를 이용한 것입니다..



moredata가 True면 데이타를 계속 읽지요..



저도 맨땅에 헤딩해서 안 것이기에..왜 이런 지는 잘..쩌비..



여튼 위 소스적용하시면 1-10이 쭈욱 찍힐 겁니다..



즐코하세여..^^