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

Quick Reprt :請問怎麼設定PageFooterBand1只在最後一頁才印

缺席
oll24286
一般會員


發表:7
回覆:7
積分:2
註冊:2004-11-30

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-11-18 17:59:00 IP:211.22.xxx.xxx 未訂閱
Quick Reprt :請問怎麼設定PageFooterBand1只在最後一頁才印?? 麻煩各位大大.....教教我吧!!!!
kgt
高階會員


發表:17
回覆:308
積分:165
註冊:2002-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-11-18 18:54:44 IP:61.219.xxx.xxx 未訂閱
QuickRep1-->Option-->LastPageFooter--> ( True)Page footer is printed on the last page (False)Page footer is not printed on the last page
oll24286
一般會員


發表:7
回覆:7
積分:2
註冊:2004-11-30

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-11-21 09:36:00 IP:211.22.xxx.xxx 未訂閱
不是的,LastPageFooter是取決放最後一頁要不要印,但其它頁的頁尾都會印出來, 我想的是..最後一頁要印,其它頁不要印... 麻煩各位大大.....教教我吧!!!!
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-11-21 13:52:36 IP:210.65.xxx.xxx 未訂閱
Hi oll24286,
1.宣告兩個全域變數
.....
      var PrintBand: Boolean);
  private
    { Private declarations }
    TotalPage,CurrentPage : Integer;
  public
.....    2.QuickRep1 的 BeforePrint 事件加入以下程式碼,將 CurrentPage 歸零
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  CurrentPage := 0;
end;    3.QuickRep1 的 OnStartPage 事件加入以下程式碼,進行 CurrentPage 累加
procedure TForm1.QuickRep1StartPage(Sender: TCustomQuickRep);
begin
  Inc(CurrentPage);
end;    4.在 PageFooter 的 BeforePrint 事件加入以下程式碼,判斷是否印出
procedure TForm1.QRBand5BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  if CurrentPage = TotalPage then
    PrintBand := True
  else
    PrintBand := False;
end;    5.QuickRep1 Preview 前,加入以下程式碼
procedure TForm1.Button2Click(Sender: TObject);
begin
  .....
  QuickRep1.Prepare;
  TotalPage := QuickRep1.QRPrinter.PageNumber;
  QuickRep1.Preview;
end;
---------------------------------- 小弟才疏學淺,若有謬誤尚請不吝指教 ----------------------------------
------
Fishman
oll24286
一般會員


發表:7
回覆:7
積分:2
註冊:2004-11-30

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-11-22 14:10:03 IP:211.22.xxx.xxx 未訂閱
謝謝Fishman的回答... 但如此還是有一個問題存在,因為我頁尾的高度還蠻大的,若是依您的方法,將導致每頁的頁尾有一大段空白,這樣user端一定會抱怨,請問還有別的方法嗎?????    ..............
l630521
資深會員


發表:15
回覆:349
積分:372
註冊:2003-02-17

發送簡訊給我
#6 引用回覆 回覆 發表時間:2005-11-22 16:29:24 IP:203.73.xxx.xxx 未訂閱
引言: 謝謝Fishman的回答... 但如此還是有一個問題存在,因為我頁尾的高度還蠻大的,若是依您的方法,將導致每頁的頁尾有一大段空白,這樣user端一定會抱怨,請問還有別的方法嗎????? .............. < face="Verdana, Arial, Helvetica"> 照妳的說法,如果是我,我會用Summary來做,Summary會在報表列印完畢時接在Detail後面列印! Ian
oll24286
一般會員


發表:7
回覆:7
積分:2
註冊:2004-11-30

發送簡訊給我
#7 引用回覆 回覆 發表時間:2005-11-23 11:07:15 IP:211.22.xxx.xxx 未訂閱
謝謝Ian的回答... 佰因這張報表本身就已有Summary,且我的頁尾是要印在最下面,但Summary會在報表列印完畢時接在Detail後面列印!,並不一定會在最下面, 且我有試過用二個Summary, 第一個是原來的Summary, 第二個是將頁尾的資料塞到此Summary,且AlignToBottom = True; 但結果是第二個Summary但沒有顯示出來??????? 請問還有別的方法嗎???????????
elase
一般會員


發表:4
回覆:23
積分:10
註冊:2003-06-05

發送簡訊給我
#8 引用回覆 回覆 發表時間:2007-05-11 17:15:19 IP:125.231.xxx.xxx 訂閱
在設計模式的時候PageFooterBand1 的 Enabled 屬性設為 False
在 SummaryBand 的 AfterPrint 事件將它設為 True
procedure TForm1.SummaryBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
PageFooterBand1.Enabled := True;
end;
編輯記錄
elase 重新編輯於 2007-05-11 17:16:00, 註解 無‧
shinhrn
中階會員


發表:54
回覆:165
積分:83
註冊:2002-06-05

發送簡訊給我
#9 引用回覆 回覆 發表時間:2007-05-14 10:21:56 IP:59.126.xxx.xxx 訂閱

===================引 用 oll24286 文 章===================
謝謝Fishman的回答... 但如此還是有一個問題存在,因為我頁尾的高度還蠻大的,若是依您的方法,將導致每頁的頁尾有一大段空白,這樣user端一定會抱怨,請問還有別的方法嗎????? ..............

那就試試.不印時QRBand2.Height設0...
fivker
一般會員


發表:24
回覆:38
積分:12
註冊:2006-12-05

發送簡訊給我
#10 引用回覆 回覆 發表時間:2007-05-16 16:34:51 IP:220.128.xxx.xxx 訂閱
我試用elase兄的方法,發覺程式第一次執行報表預覽時,pagefooter可以只在最後一頁顯示。

。可是當我關閉報表預覽,同一支程式跑第二次時,pagefooter會變成每頁顯示。

不曉得是什麼原因造成的@@ (我是用D5)


編輯記錄
fivker 重新編輯於 2007-05-16 16:35:42, 註解 無‧
elase
一般會員


發表:4
回覆:23
積分:10
註冊:2003-06-05

發送簡訊給我
#11 引用回覆 回覆 發表時間:2007-05-17 09:21:29 IP:61.225.xxx.xxx 訂閱
在 QuickRep1BeforePrint事件將PageFooterBand1 的 Enabled 屬性設為設為 False
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin

PageFooterBand1.Enabled := False;
end;
編輯記錄
elase 重新編輯於 2007-05-17 09:22:05, 註解 無‧
系統時間:2024-03-28 21:18:29
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!