Foxtable(狐表)用户栏目专家坐堂 → 老师这个提示改怎么解决呢???


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

主题:老师这个提示改怎么解决呢???

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


加好友 发短信
等级:婴狐 帖子:74 积分:629 威望:0 精华:0 注册:2013/5/13 4:03:00
老师这个提示改怎么解决呢???  发帖心情 Post By:2014/8/21 13:46:00 [只看该作者]

.NET Framework 版本:2.0.50727.5483
Foxtable 版本:2014.8.15.1
错误所在事件:窗口,Customer Information,Button1,Click
详细错误信息:
无法将类型为“Microsoft.Office.Interop.Excel.ApplicationClass”的 COM 对象强制转换为接口类型“Microsoft.Office.Interop.Excel._Application”。此操作失败的原因是对 IID 为“{000208D5-0000-0000-C000-000000000046}”的接口的 COM 组件调用 QueryInterface 因以下错误而失败: 不支持此接口 (异常来自 HRESULT:0x80004002 (E_NOINTERFACE))。


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


加好友 发短信
等级:婴狐 帖子:74 积分:629 威望:0 精华:0 注册:2013/5/13 4:03:00
  发帖心情 Post By:2014/8/21 13:55:00 [只看该作者]

我的预览代码

Dim Book As New XLS.Book(ProjectPath & "Attachments\invoice st.xls")
Dim fl As String = ProjectPath & "Reports\invoice st.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
Ws.PrintPreview
App.Quit

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


加好友 发短信
等级:婴狐 帖子:74 积分:629 威望:0 精华:0 注册:2013/5/13 4:03:00
  发帖心情 Post By:2014/8/21 13:55:00 [只看该作者]

打印代码

Dim Book As New XLS.Book(ProjectPath & "Attachments\invoice st.xls")
Dim fl As String = ProjectPath & "Reports\invoice st.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)
Ws.PrintOut
App.Quit

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/8/21 14:05:00 [只看该作者]


 回到顶部