如何确定VFP 报表总页数?

[shaochun]

各位高手，

ＶＦＰ　中的报表打印比较简单,设计时只能确定当前页,

无法获总页数.

谁有心法,请示高超.

注:本人历遍当世VFP软件,皆无人制之.

[sbw]

简单的方法：

总页数=要打印记录数/每页的记录数(自己数)

复杂的方法:

以打开数据库的方式打开报表文件
获得纸张类型,细节,页标头等的长度得出每页可打印的记录数,剩下的不用我说了吧


其实你要是对报表文件格式研究的比较透,那么你还可以用程序动态生成报表.

[kpedu2002]

我记得上次我进入该论坛时曾看过所有FOXPRO
的问题及解答,像是有篇文章专讲这个方面.
请耐心些查找下.

[hnpyz]

我是这样解决的：

nPage = int( ( 记录总数 + 每页打印记录 - 1 ) / 每页打印记录 )
for i = 1 to nPage
set filt to recn() > 每页打印记录 * ( i - 1 ) and ;
recn() < 每页打印记录 * i + 1
repo form 打印报表文件 to prin noco
endfor

[fjcbox]

问：如何统计报表的总页数？

答：用下面的代码就可以得到报表的总页数：

nTotalPages = 0
REPORT FORM MyReport NOCONSOLE
nTotalPages = _pageno
REPORT FROM MyReport TO PRINT NOCONSOLE

VFP BBS论坛：http://www.51friends.net/bbs