··如何用VB获得ActiveReport报表的页数··

Question

各位ActiveReport报表前辈：
    本人最近使用VB开发项目，用到ActiveReport报表，遇到一个难题。
    我想利用VB直接获得ActiveReport报表的页数，以便告诉用户需要放几张打印纸(注：这是特殊的水印纸)。
    “当然可以先打开报表，然后用户看到页数，再判断放几张纸，但是这种办法太小儿科，用户看了会莫名其妙。”
    另外，如何在报表里加注页码？
   （见笑，因为项目忙，我没有时间研究帮助）
    请各位有实战经验的谈谈你的办法，或者其它变通的办法，谢谢了。
    
    祝各位钱途远大！
 
                             木瓜(www.Emugua.net)

Answer 1

如何在报表里加注页码？ 当前页数：加一个FIELD，属性：summaryRunning=2,SummaryType=4.
总页数：加一个FIELD，属性：summaryRunning=0,SummaryType=4.
--------------------------------------------------------------------
直接获得ActiveReport报表的页数?在ReportEnd Event 中读取总页数Field.text就是你要的值了。

Answer 2

感谢无名大侠给我的QQ回复，现抄在下面：
-----------------------
设置Field控件的SummaryType属性为4-ddSMPageCount，SummaryRunning属性为1-ddSRGroup
，就可以让这个控件得到当前的的页数。  
这样你就有了变通的方法，可以让这个Field控件隐藏，在加载报表前，用msgbox先弹出来，读取这个Field控件的值，告诉用户准备多少张纸，然后再打印。