저... 제가 구현할려는게요 뭐냐면...
폼을 그리는데....
일정한 양식 입니다.
내용을 쿼리에 관계업이 항상 8라인을 출력하려 합나다.
만약 쿼리한 내용이 8보다 작아도 말입니다.
예)
-------------------------------------------------
1 | ㅁㅁㅁㅁㅁㅁㅁㅁㅁㅁㅁㅁㅁㅁㅁㅁㅁㅁㅁㅁ
-------------------------------------------------
2 | ㅔㅔㅔㅔㅔㅔㅔㅔㅔㅔㅔㅔㅔㅔㅔㅔㅔㅔㅔㅔ
-------------------------------------------------
3
-------------------------------------------------
4
-------------------------------------------------
5
-------------------------------------------------
6
-------------------------------------------------
7
-------------------------------------------------
8
-------------------------------------------------
일케 말입니다.
즉 내용이 8보다 작아도 틀은 8라인이 다 그려져야 합니다.
답변좀 부탁드립니다.
procedure TPrnChr1Form.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
indexS := 1;
end;
procedure TPrnChr1Form.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
if indexS <= 8 then MoreData := true
else MoreData := False;
if MoreData=True then begin
MaxQRLabel.Caption := IntToStr(IndexS);
QuickRep1.QRPrinter.Progress := (Longint(IndexS) * 100) div D_TotFloor;
end else QuickRep1.QRPrinter.Progress := 100;
Inc(indexS);
end;