Fr2.5怎样限制每页打印资料笔数? |
尚未結案
|
xxiaowang
中階會員 發表:51 回覆:75 積分:55 註冊:2005-01-26 發送簡訊給我 |
|
chinyu
高階會員 發表:12 回覆:157 積分:153 註冊:2002-06-14 發送簡訊給我 |
引言: 我用的是Fr2.5,一般情况下调整Data Band的高度可以控制每页打印的资料笔数。假设现在Data Band的高度固定,这样每页纸可以打印30笔资料,但我只想每页打印25笔资料就想跳页。请教怎样设定?谢谢FastReport 3.X var PageLine: integer; //在現在頁列印到第幾行 PageMaxRow: integer=15; //設定每頁列數 procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin PageLine :=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;發表人 - chinyu 於 2005/06/09 21:17:39 |
xxiaowang
中階會員 發表:51 回覆:75 積分:55 註冊:2005-01-26 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |