有“记账凭证”Excel模板如下:
现在显示效果如下:
此主题相关图片如下:2.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2019-9/20199201073175132.png)
如何在右上角显示“第?/?页”,这是问题一。
问题二:
凭证打印窗口如下:
此主题相关图片如下:4.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2019-9/20199201094922599.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
![dvubb 图片点击可在新窗口打开查看](UploadFile/2019-9/201992010134617753.png)
此主题相关图片如下:3.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2019-9/20199201014734457.png)
麻烦老师们帮忙看一下,我自己是没有办法了,谢谢!
[此贴子已经被作者于2019/9/20 10:25:29编辑过]