主题：[求助]关于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

 

麻烦老师们帮忙看一下，我自己是没有办法了，谢谢！

问题一：

谢谢蓝版的解答，是否代码先行关闭PDF文件，然后重新打开？

可以试试，但不保证有效

有用，谢谢蓝版！

再次麻烦问一下，按照帮助文件，怎么无法显示页码？

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:记账凭证.xls

  

此主题相关图片如下：1.png

 

此主题相关图片如下：2.png

 

已经自己解决了，感谢蓝版了！