|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 1 樓
|
發表於: 星期三 九月 03, 2003 2:53 pm 文章主題: 列印帶總頁數的報表(轉貼) |
|
|
用VFP列印帶總頁數的報表
VFP中沒有提供直接獲取報表總頁數的函數或變數,但利用其提供的系統變數_pageno就可通過折衷的方法來獲取報表的總頁數,方法如下:
首先為在原有報表或新建報表中的“頁注腳”帶區增加一“域控制項”(欄位),其屬性運算式為:
″第″+Alltrim(Str(_pageno))+″頁/共″+Alltrim(Str(_Totalpage))+″頁″
跟著創建一個調用列印報表的過程程式,如下:
Proc Repoproc
Publ _Totalpage
_Totalpage=0
REPORT FORM 報表名 NOCONSOLE
_Totalpage=_pageno
REPORT FORM 報表名 NOCONSOLE to prin
clea memo _Totalpage
retu
經以上改進後,只要執行“Do Repoproc”命令就可列印出有總頁數的報表了。但要注意:修改後的報表在單獨運行時可能會提示找不到變數“_Totalpage”的錯誤。
若報表要先預覽後再決定是否列印,只要將以上程式的“to prin”替換為“PREVIEW”就可以了。
以上實例只提供基本思路,有興趣的VFP設計者不妨一試,有問題可來信與我探討(iokyouok@21cn.com)。 _________________ #############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|