StrGrid to QuickReport

QuickRep 컴포넌트의 Object inspector 의 Event OnNeedData 추가

procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
	MoreData := i < StringGrid.RowCount;
end;

 

 

QuickRep 컴포넌트의 Object inspector 의 Event BeforePrint 추가

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean);
begin
	i := 0; // 변수 초기화
end;

 

DetailBand 에 QRLabel 추가, BeforePrint 추가

procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
begin
	QRLabel1.Caption := StrGrid.Cells[0,I]; // StrGrid의 Cell을 QLabel에 뿌려준다.
	inc(i); 
end;

 

참고자료 : m.blog.naver.com/PostView.nhn?blogId=parksangsuk&logNo=120037980311&proxyReferer=https:%2F%2Fwww.google.com%2F