不好意思,我是剛接觸Delphi程式,請多多包涵! 怎樣才可以讓報表上的頁次:1/2,每頁的明細項以五個為一頁 請知道的人教教我吧~~~

您是採用QuickReport嗎? ～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

對啊,我是用QuickReport

設一個 TotPages 的全域變數 然後在你的程式碼中找 QuickRep1.preview<---這一段 將這一段--> TotPages :=QuickRep1.QRPrinter.PageCount;//抓總頁數 加在上一段之前 有一個QrSysData的元件 將屬性Data 設為 qrsPageNumber 然後在此元件的OnPrint 事件 寫 procedure TPrt_DiyDlg.QRSysData1Print(sender: TObject; var Value: String); begin //第幾頁/總頁數 value:=value '/' inttostr(TotPages); end; 天行健 君子當自強不息~~@.@ 發表人 - T.J.B 於 2004/06/11 14:11:42

------
天行健
君子當自強不息~~@.@

如何設一個 TotPages 的全域變數啊 這樣寫對嗎?執行時有錯,因為我是初學者,可否請你在講詳細一點,謝謝! procedure TForm1.FormShow(Sender: TObject); var TotPages: string; TotPages:=QuickRep1.QRPrinter.PageCount; end; procedure TQReport.QRSysData1Print(sender: TObject; var Value: String); begin //第幾頁/總頁數 value:=value="/" inttostr(TotPages); end;

你這樣寫不對喔 全域就是指在 interface ~ implementation 這個區塊 在這裡設定的變數就叫做全域變數 舉例 interface private { Private declarations } TotPages: Integer; public implementation 天行健 君子當自強不息~~@.@ 發表人 - T.J.B 於 2004/06/11 16:20:36

------
天行健
君子當自強不息~~@.@

頁次顯示可以了,但我要一張只印五筆明細資料,超過五筆明細資料就自動換頁,程式應該還要在更改吧!

設一個變數a:integer,初始值為零...在detailbandbeforeprint事件裡寫 a:=a 1; if a = 5 then begin a:=0;當五筆之後要歸零重新計算 detailband1.ForceNewPage:=true;強迫跳頁 end else begin detailband1.ForceNewPage:=false; end;