Foxtable(狐表)用户栏目专家坐堂 → [求助]关于EXCEL模板分页显示页码的问题


  共有3385人关注过本帖树形打印复制链接

主题:[求助]关于EXCEL模板分页显示页码的问题

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110648 积分:563148 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/20 10:47:00 [显示全部帖子]

问题一:
方法1,直接在execl模板添加页眉设置页码

问题二:

Dim rpt As String = ProjectPath & "Reports\记账凭证.pdf" 这里PDF文件必须每次都使用不同的名称,因为第一次已经被浏览器控件使用,第二次SaveToPDF是无法覆盖保存的,所以说明才会提示是只读文件

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110648 积分:563148 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/20 11:18:00 [显示全部帖子]

可以试试,但不保证有效

Dim wbr As WinForm.WebBrowser = Forms("凭证打印窗口").Controls("WebBrowser1")
wbr.AddRess = nothing
application.doevents
 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

 回到顶部