- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于EXCEL模板分页显示页码的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141041)
-- 发布时间：2019/9/20 10:13:00
-- [求助]关于EXCEL模板分页显示页码的问题
有“记账凭证”Excel模板如下：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:记账凭证.xls |
现在显示效果如下：
此主题相关图片如下：2.png
如何在右上角显示“第？/？页”，这是问题一。
问题二：
凭证打印窗口如下：
此主题相关图片如下：4.png
菜单中：首张、前张、后张、末张的代码中都加入了PDF页面生成的自定义函数，菜单代码如下：
Case "前张"
With Tables("凭证总表")
If .Current IsNot Nothing Then \'如果当前行未曾修改
If .Position = 0 Then
MessageBox.Show("已是本页第一条记录!","提示")
Functions.Execute("凭证打印")
Else
.Position = .Position - 1
Functions.Execute("凭证打印")
End If
Else
End If
End With
"凭证打印"自定义函数代码如下：
Dim wbr As WinForm.WebBrowser = Forms("凭证打印窗口").Controls("WebBrowser1")
Dim tmp As String = ProjectPath & "Attachments\\记账凭证.xls"
Dim rpt As String = ProjectPath & "Reports\\记账凭证.pdf"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.SaveToPDF(rpt) \'保存为pdf文件
wbr.AddRess = rpt
计划实时显示当前行的打印预览效果，但是上下翻页过程中无法执行，错误显示如下：
此主题相关图片如下：1.png
此主题相关图片如下：3.png
麻烦老师们帮忙看一下，我自己是没有办法了，谢谢！
-- 发布时间：2019/9/20 10:47:00
--
问题一：
-- 发布时间：2019/9/20 10:55:00
--
谢谢蓝版的解答，是否代码先行关闭PDF文件，然后重新打开？
-- 发布时间：2019/9/20 11:18:00
--
可以试试，但不保证有效
Dim tmp As String = ProjectPath & "Attachments\\记账凭证.xls"
Dim rpt As String = ProjectPath & "Reports\\记账凭证.pdf"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.SaveToPDF(rpt) \'保存为pdf文件
wbr.AddRess = rpt
-- 发布时间：2019/9/20 12:06:00
--
可以试试，但不保证有效
Dim tmp As String = ProjectPath & "Attachments\\记账凭证.xls"
Dim rpt As String = ProjectPath & "Reports\\记账凭证.pdf"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.SaveToPDF(rpt) \'保存为pdf文件
wbr.AddRess = rpt
有用，谢谢蓝版！
-- 发布时间：2019/9/20 12:23:00
-- 已经自己解决了，感谢蓝版了！
问题一：
再次麻烦问一下，按照帮助文件，怎么无法显示页码？
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:记账凭证.xls |
此主题相关图片如下：1.png
此主题相关图片如下：2.png
已经自己解决了，感谢蓝版了！