以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  EXCEL打印报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66195)
--  作者：magangzmc
--  发布时间：2015/3/31 22:10:00
--  EXCEL打印报错

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
Ws.PrintPreview
App.Quit

----------------------------------

报错信息

.NET Framework 版本：2.0.50727.5456
Foxtable 版本：2014.11.11.1
错误所在事件：菜单,打印,Click
详细错误信息：
检索 COM 类工厂中 CLSID 为 {00024500-0000-0000-C000-000000000046} 的组件时失败，原因是出现以下错误: 80004023。
--  作者：有点甜
--  发布时间：2015/3/31 22:14:00
--  
 你计算机没有安装MS Office
--  作者：magangzmc
--  发布时间：2015/3/31 23:41:00
--  

安装了

office2007和office2013两个版本
--  作者：Bin
--  发布时间：2015/4/1 8:39:00
--  

1、第一招：

http://www.cnblogs.com/bile/p/3520439.html

 

2、第二招：

桌面右击foxtable启动快捷方式，选择“以管理员身份运行”

 

3、第三招：

 

运行安装目录里的 office.reg


开始----运行----输入word 2003的安装路径，例如 "C:\\Program Files\\Microsoft Office\\OFFICE11\\winword.exe" /regserver 注意/符号前面有一个空格，其中"C:\\Program Files\\Microsoft Office\\OFFICE11\\winword.exe" 是word 2003的安装程序的路径，参数regserver表示注册的意思！
运行后，会启动Office 2003的安装程序，进行修复，重新注册。
word 2007为默认的启动程序的方法类同，可以执行 开始----运行----"D:\\Program Files\\Microsoft Office\\Office12\\winword.exe" /regserver

 

 

开始----运行----输入excel2003的安装路径，例如 "C:\\Program Files\\Microsoft Office\\OFFICE11\\excel.exe" /regserver 注意/符号前面有一个空格，其中"C:\\Program Files\\Microsoft Office\\OFFICE11\\excel.exe" 是excel2003的安装程序的路径，参数regserver表示注册的意思！
运行后，会启动Office 2003的安装程序，进行修复，重新注册。
excel2007为默认的启动程序的方法类同，可以执行 开始----运行----"D:\\Program Files\\Microsoft Office\\Office12\\excel.exe" /regserver

 

 

 

第四招

重装完整版的office

 

第五招

重装windows
--  作者：有点甜
--  发布时间：2015/4/1 9:07:00
--  

 参考

 

http://blog.csdn.net/sophiazhou/article/details/7925204