Quick Reprt :請問怎麼設定PageFooterBand1只在最後一頁才印?? 麻煩各位大大.....教教我吧!!!!

QuickRep1-->Option-->LastPageFooter--> ( True)Page footer is printed on the last page (False)Page footer is not printed on the last page

不是的,LastPageFooter是取決放最後一頁要不要印,但其它頁的頁尾都會印出來, 我想的是..最後一頁要印,其它頁不要印... 麻煩各位大大.....教教我吧!!!!

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

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

引言: 謝謝Fishman的回答... 但如此還是有一個問題存在,因為我頁尾的高度還蠻大的,若是依您的方法,將導致每頁的頁尾有一大段空白,這樣user端一定會抱怨,請問還有別的方法嗎????? .............. < face="Verdana, Arial, Helvetica"> 照妳的說法，如果是我，我會用Summary來做，Summary會在報表列印完畢時接在Detail後面列印！ Ian

謝謝Ian的回答... 佰因這張報表本身就已有Summary,且我的頁尾是要印在最下面,但Summary會在報表列印完畢時接在Detail後面列印！,並不一定會在最下面, 且我有試過用二個Summary, 第一個是原來的Summary, 第二個是將頁尾的資料塞到此Summary,且AlignToBottom = True; 但結果是第二個Summary但沒有顯示出來??????? 請問還有別的方法嗎???????????

在設計模式的時候PageFooterBand1 的 Enabled 屬性設為 False
在 SummaryBand 的 AfterPrint 事件將它設為 True
procedure TForm1.SummaryBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
PageFooterBand1.Enabled := True;
end;

編輯記錄

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

那就試試.不印時QRBand2.Height設0...

我試用elase兄的方法，發覺程式第一次執行報表預覽時，pagefooter可以只在最後一頁顯示。

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

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

編輯記錄

在 QuickRep1 的 BeforePrint事件將PageFooterBand1 的 Enabled 屬性設為設為 False
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
PageFooterBand1.Enabled := False;
end;

編輯記錄