主题：打印错误求教

今天打印的时候，不知道是什么原因，说是找不到应用程序，我又重新安装了几次OFFICE软件，都还是不行，请老师帮忙：

此主题相关图片如下：qq截图20160324190230.png

感谢老师们！

'筛选后全部选定区域
With Tables("商品库存")
    .Select(0,0, .Rows.Count - 1, .Cols.Count - 1)
End With
Dim Book As New XLS.Book(ProjectPath & "打印模板\金华成品盘点.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)

Book.Build() '生成细节区
Book.Save(ProjectPath & "Reports\金华成品盘点.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = ProjectPath & "Reports\金华成品盘点.xls"

Proc.Start()

如果这样打不开，那你直接双击文件也是打不开的。你要设置好xls的默认打开程序。

谢谢红袍老师,我的问题已经解决,试了很多次都不行,最后重装了系统就好了

汗....这个也要重装系统？卸载重新安装MS Office，设置默认打开程序为Excel就行。

汗....这个也要重装系统？卸载重新安装MS Office，设置默认打开程序为Excel就行。

之前就是这样操作的，不行才会重装系统，呵呵，谁叫俺是菜鸟