以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]打印预览  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128787)

--  作者:江南小镇
--  发布时间:2018/12/14 22:08:00
--  [求助]打印预览
老师,下面代码无法打开office2016增强版

Dim Book As New XLS.Book(ProjectPath & "Attachments\\费用明细.xls")
Dim fl As String = ProjectPath & "Reports\\费用明细.xls"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
ShowAppWindow("费用明细",2)
Ws.PrintPreview
App.Quit

--  作者:有点蓝
--  发布时间:2018/12/14 22:15:00
--  
那就安装回32位的2013
--  作者:江南小镇
--  发布时间:2018/12/14 22:20:00
--  
老师,有其他解决办法吗。
--  作者:有点蓝
--  发布时间:2018/12/14 22:31:00
--  
不兼容就是不兼容,没有办法的