在报表中怎么写 共 N 页 第 X 页？谢谢

[huangzh1977]

在报表中怎么写 共 N 页 第 X 页？谢谢

[sayhi]

这个共几页你先要虚拟打印一下把最后的页数记下来就可以了。
像lining7510写的表达式一样._totalpage=pageno先在表单运行前赋值

[huangzh1977]

"第 "+allt(str(_pageno))+" 页，共 "+allt(str(_pepage))+" 页"

[lining7510]

在页注脚处添加一个域控件（字段），萁属性表达式为：
　" "第"+alltrim(str(_pageno))+"页/共"+alltrim(str(_totalpage))+"页"

[zyfmin]

怎样虚拟打印啊！

[marki]

總頁數可能要這樣,
總記錄數/每頁記錄數

[zyfmin]

如果每页的记录书改变的话，容易出错的。用虚拟打印可以解决，但我不会！

[xiolig]

虚拟打印：REPORT FORM myReport NOCONSOLE
得到页数：_PAGENO

[jiaxingxing]

楼上说的正确，页注脚处添加一个域
变量=_PAGENO

" "第"+alltrim(str(_pageno))+"页/共"+alltrim(str(变量))+"页"

[yasur]

[1] 8.0以前的版本要虚拟打印一次记录下总页数，然后再打印一遍。
[2] 8.0中可以直接使用系统变量设置！

[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

在报表适当位置放上 i 和 nPage 即可。

[流星尔]

在vfp8.0中直接用就行。
第几页用在域控件属性中输入_pageno.共几页输入_pagetotal属性

[marki]

*// 怎樣取報表總頁數
PRIVATE pnTotalReportPages
*// 利用虛擬打印
pnTotalReportPages = 0
REPORT FORM <ReportFormName> NOCONSOLE
pnTotalReportPages = _PageNo &&得到總頁數

*// 標簽運用
"第" + ALLTRIM(STR(_PAGENO))+"頁" + ;
IIF(TYPE("pnTotalReportPages")="N",;
",共"+ALLTRIM(STR(pnTotalReportPages))+"頁","")