主题：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。

安装了

office2007和office2013两个版本

 参考

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