VFP 愛用者社區

[Ruey]

用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）。