請問各位有沒有遇過這樣的問題,預覽畫面都是正常(我要的結果),但實際列出來卻不一樣,請問有人知道要如何解決,謝謝!!    

    Title (Band : rbPageHeader) ==> 標題,每頁都印
 ----------------------------------
    Data Record (Band : rbDetail) ==> 資料列
 ----------------------------------
    Other Information (ChilBand) ==> 印在每頁資料列的後面    預覽畫面:
       Title 
 --------------------
    Data Record
    Data Record
    Data Record
    Data Record
    Data Record
    Data Record
 --------------------
  Other Information (程式控制,當Data Record大於20筆以上自動換頁)    實際列印:
       Title 
 --------------------
    Data Record
 --------------------
  Other Information 
 --------------------
    Data Record
 --------------------
  Other Information 
 --------------------
    Data Record
 --------------------
  Other Information 
 --------------------
    Data Record
 --------------------
  Other Information 
 --------------------
    Data Record
 --------------------
  Other Information 
 --------------------
    Data Record
 --------------------
  Other Information     程式:
iRecordCount=0,iMaxRecordPage=20,iPageCount=0皆為全域變數    procedure TfmRpt.DataBandBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  Inc(iRecordCount);
end;    procedure TfmRpt.OtherInfoBandBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  if (iRecordCount >= iMaxRecordPage) or
     ((iPageCount*iMaxRecordPage   iRecordCount) >= qrData.RecordCount) then
    PrintBand := True
  else PrintBand := False;
end;    procedure TfmRpt.OtherInfoBandAfterPrint(Sender: TQRCustomBand;
  BandPrinted: Boolean);
begin
  if BandPrinted then
  begin
    if (iPageCount*iMaxRecordPage   iRecordCount) < (qrData.RecordCount) then
        fmRpt.NewPage;        Inc(iPageCount);
    iRecordCount := 0;
  end;
end;

發表人 - minjiu 於 2004/03/23 10:21:25 發表人 - minjiu 於 2004/03/23 10:22:05

哦，iPageCount 沒歸零

我在呼叫此報表表單時,都已從重對全域變數指定值了 iRecordCount := 0; // 每頁目前列印的筆數 iMaxRecordPage := 20; // 每頁最多列幾筆 iPageCount := 0; // 目前印了幾頁

引言: 我在呼叫此報表表單時,都已從重對全域變數指定值了 iRecordCount := 0; // 每頁目前列印的筆數 iMaxRecordPage := 20; // 每頁最多列幾筆 iPageCount := 0; // 目前印了幾頁

請問是在Report的BeforePrint事件重設的嗎？ 若不先Preview直接Print，也會如此嗎？

引言: 請問是在Report的BeforePrint事件重設的嗎？ 若不先Preview直接Print，也會如此嗎？

我是在別個表單中Preview前就先設定了. 我剛試了直接下fmRpt.Print; 它沒反應...不給印...><

iRecordCount=0,iMaxRecordPage=20,iPageCount=0皆為全域變數 比較建議寫在QuickRep.OnBeforePrint (這個事件會在Preview or Print 前觸發) 試試吧。 「在別個表單中Preview前就先設定了」 <- 不知這個的意思是？

引言: iRecordCount=0,iMaxRecordPage=20,iPageCount=0皆為全域變數 比較建議寫在QuickRep.OnBeforePrint (這個事件會在Preview or Print 前觸發) 試試吧。 「在別個表單中Preview前就先設定了」 <- 不知這個的意思是？

@@...竟然可以了...pprayer謝謝囉!! 發表人 - minjiu 於 2004/03/23 12:59:24