//*******************************************//

//OnNeedData작성법

//*******************************************//



Var

CurItem : Integer;



procedure TForm2.QuickRep1NeedData(Sender : TObject; Var MoreData : Boolean);

begin

if CurItem < Form1.StringGrid1.Rowcount then

begin

QRLabel1.Caption := Form1.StringGrid1.Cells[0,CurItem];

QRLabel2.Caption := Form1.StringGrid1.Cells[1,CurItem];

Inc(CurItem);

MoreData := CurItem <= Form1.StringGrid1.RowCount;

end;

end;





procedure TForm2.QuickRep1BeforePrint(Sender : TQuickRep;

Var printReport : Boolean);

begin

CurItem := 1;// StringGrid에서 출력의 시작 row

end;



이렇게 하면 되지요..

아주 간단한 팁인데 구체적으로 설명해주시는 분이 없군요



팀모아란에서 NeedData로 검색해보세요



문형록 wrote:

> 데이타베이스의 테이블의 내용을 스트링 그리드로 받아와서 퀵리포트에 옮겨 담아

>

> 프린트를 하려고 합니다.

>

> 여기저기 뒤져보니 OnNeedData를 이용하면 될꺼라고 들 하는데, 구체적으로 어떻게

>

> OnNeedData를 사용하는지는 나와 있질 않는군요!

>

> 먼저 경험이 있거나 잘 알고 계신분 조언좀 바랍니다.

정말 감사합니다.

하지만 좀더 질문이있어서 메일로 보냈거든요!!

아직 멜 확인 하지 않으셨으면 확인좀 해 주시고 답변좀 주세요!!!

그럼 이만...

윤유섭 wrote:

> 아주 간단한 팁인데 구체적으로 설명해주시는 분이 없군요

>

> 팀모아란에서 NeedData로 검색해보세요

>

> 문형록 wrote:

> > 데이타베이스의 테이블의 내용을 스트링 그리드로 받아와서 퀵리포트에 옮겨 담아

> >

> > 프린트를 하려고 합니다.

> >

> > 여기저기 뒤져보니 OnNeedData를 이용하면 될꺼라고 들 하는데, 구체적으로 어떻게

> >

> > OnNeedData를 사용하는지는 나와 있질 않는군요!

> >

> > 먼저 경험이 있거나 잘 알고 계신분 조언좀 바랍니다.