procedure TForm1.FormShow(Sender: TObject);

begin

QuickRep1.Print;

end;



procedure TForm1.QRBand2BeforePrint(Sender: TQRCustomBand;

var PrintBand: Boolean);

var

i : integer;

begin



for i := 0 to 3 do

begin

qrlabel1.Caption := inttostr(i);

end;

end;





Detail Band에 qrlabel1을 삽입하고선.



이런식으로 했습니다.



첫페이지엔 1만 찍히고,



두번째 페이지엔 2가 찍히고



세번째 페이지엔 3이 찍히게 하려고 의도했던 내용입니다.



어떻게 해야되죠?





이광형 wrote:

> 이런 방법으로 한번 해 보시는게 어떨지...

> Detail Band 에다가 QRLabel을 사용하여 한 라인에 인쇄될 데이터를 Detail Band 의 BeforePrint 이벤트에서 Assign 해 줍니다. 그렇게 하면 DB를 연결했을때 처럼 인쇄를 할 수 있습니다.

>

> ex>

> procedure TForm1.QRBand1BeforePrint(Sender: TQRCustomBand;

> var PrintBand: Boolean);

> begin

> for i := 0 to 배열의 마지막 do

> begin

> QRLabel1.caption := 인쇄할 배열명[i];

> QRLabel2.caption := 인쇄할 배열명[i];

> .

> .

> .

> end;

> end;

>

>

> 김광철 wrote:

> > Quick Report에서 DB를 연결하면 내용이 한 페이지가 넘어갈경우 자동으로

> >

> > 페이지 스킵해서, 두번째 페이지에 다음 내용을 인쇄해주더라구요.

> >

> > 움... 그런데. 만약 인쇄할 값이 DB에 저장되어 있지 않고, 일반 변수에

> >

> > 배열 형태로 저장이 되어 있다면, 이를 두페이지에 걸쳐 인쇄할때는 어떻게

> >

> > 해야 하는건지 궁금합니다.

> >

> > 이거가지고 몇일째 시름중인데.. .정말 난감하네요. -_-;

> >

> > 혹시 알고 계신분 계시면, 힌트라도좀 부탁드립니다.

> >

> >