全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:3647
推到 Plurk!
推到 Facebook!

FastReport 如何列印固定筆數,超過筆數換一頁,但多欄位不知道怎麼處理?

 
g9221712
高階會員


發表:145
回覆:344
積分:162
註冊:2006-07-06

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-07-07 05:33:16 IP:220.134.xxx.xxx 訂閱

各位前輩:
FastReport 3 如何列印固定筆數,超過筆數換一頁,但多欄位不知道怎麼處理?目前我報表設定報表有兩欄,
欲將紀錄每50筆做一次列印,超過50筆切到下一欄位繼續列印!但是目前只達到換頁,卻無法切到右邊的分欄上
繼續列印,不知道各位FR3同好可否提供實際的作法。下方為目前我寫的固定筆數換頁程式碼!

var
PageLine: integer;
PageMaxRow:integer;

procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
begin
PageMaxRow:=50; // 每頁最大筆數
PageLine := mod PageMaxRow;
if (PageLine = 0) then
begin
Engine.newpage; //目前我只找到換頁的指令,不知道有沒有切到下一欄列印的語法!
end;
end;


begin
end.

------
「人們所以覺得寂寞,是因為他們會築牆,卻不會搭橋。」
程式寫的越久,卻發現自己越來越不會寫程式!
g9221712
高階會員


發表:145
回覆:344
積分:162
註冊:2006-07-06

發送簡訊給我
#2 引用回覆 回覆 發表時間:2006-07-10 23:02:14 IP:220.134.xxx.xxx 訂閱

var
PageLine: integer; //在現在頁列印到第幾行
PageMaxRow: integer=15; //設定每頁列數

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
PageLine := mod PageMaxRow;
if (PageLine = 1) and ( > 1) then
begin
Engine.CurY:=Engine.CurY (30*20); // 自己算實際差的欄位高度,移動語法 插入30列,每列20mm高度!
end;
end;

------
「人們所以覺得寂寞,是因為他們會築牆,卻不會搭橋。」
程式寫的越久,卻發現自己越來越不會寫程式!
ntjrr
高階會員


發表:240
回覆:312
積分:110
註冊:2005-04-24

發送簡訊給我
#3 引用回覆 回覆 發表時間:2006-09-20 19:44:16 IP:222.184.xxx.xxx 未訂閱
如果有100条记录,刚好是100条,那么是不是要有三页出来了?而第三页是多余的?
------
我的编程起步于ktop,我将永远支持ktop
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#4 引用回覆 回覆 發表時間:2006-10-01 22:20:15 IP:61.67.xxx.xxx 未訂閱

我有另一種偷吃的做法, 設置(以fr2.5為例) pageheadband, pagefootband, masterdataband

將pagefootband調整到masterdataband只能印50筆(max)的高度, 請將pageheadband的高度也一併考慮進去, 因為 masterdataband可列印的筆數其實是根據頁高-pageheadband高-pagefootband高所餘下的高度來出表的, 所以只要pagefootband能調整ok就可以控制data列印筆數, 當然這種做法只要換了紙張或加了其他band的顯示就會完全不同, 要再調整比較麻煩, 但我懶得去計算一堆數值, 用這個就能達成目標也未嘗不可。

系統時間:2024-11-24 19:57:00
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!