lulusteven
一般會員
發表:10 回覆:9 積分:3 註冊:2004-10-29
發送簡訊給我
|
請教各位大大
如何於FastReport列印報表並能自定每頁筆數並於最後一頁將不足之欄位補空白充滿一整頁...........感恩 c.c.chiu
------ c.c.chiu
|
chinyu
高階會員
發表:12 回覆:157 積分:153 註冊:2002-06-14
發送簡訊給我
|
引言:
請教各位大大
如何於FastReport列印報表並能自定每頁筆數並於最後一頁將不足之欄位補空白充滿一整頁...........感恩 c.c.chiu
FastReport 3.X var
PageLine: integer; //在現在頁列印到第幾行
PageMaxRow: integer=15; //設定每頁列數 procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
PageLine := mod PageMaxRow;
if (PageLine = 1) and ( > 1) then
Engine.newpage;
end; //Footer1高度設為0 procedure Footer1OnBeforePrint(Sender: TfrxComponent);
var
i: integer;
begin
i := iif(PageLine=0, PageMaxRow, PageLine);
while i < PageMaxRow do begin
i := i 1;
Engine.ShowBand(Child1); //印空白表格
end;
end; begin
end. FastReport 2.X 在資料字典設定變數
PageMaxRow 設定每頁列數。
PageLine 在現在頁列印到第幾行。
每 PageMaxRow 筆新自動跳頁(在Band的OnBeforePrint)
PageLine := [line#] mod PageMaxRow;
if (PageLine = 1) and ([line#] > 1) then
newpage; 一頁列印15筆,不足筆數的列印空白表格列的方法
Master1
detail1----固定印PageMaxRow筆,有表格
detailFooter1---在OnBeforePrint輸入下列程式碼,高度設為 0
child1---空白表格 **detailFooter1.OnBeforePrint
i := PageLine;
if i = 0 then
i := PageMaxRow;
while i < PageMaxRow do begin
i:=i 1;
ShowBand(Child1);
end;
|
lulusteven
一般會員
發表:10 回覆:9 積分:3 註冊:2004-10-29
發送簡訊給我
|
感謝你的回應
詳細圖片如下 (1)另如圖二顯示是否可將出表順序由上而下及由左至右方式出表
(2)因我使用的是一列二行方式如筆數為單數時會產生空白列 發表人 - lulusteven 於 2005/09/07 22:37:40
------ c.c.chiu
|
chinyu
高階會員
發表:12 回覆:157 積分:153 註冊:2002-06-14
發送簡訊給我
|
引言:
感謝你的回應
詳細圖片如下 (1)另如圖二顯示是否可將出表順序由上而下及由左至右方式出表
(2)因我使用的是一列二行方式如筆數為單數時會產生空白列 發表人 - lulusteven 於 2005/09/07 22:37:40
設定page.columns為2即可出表順序由上而下及由左至右
|