- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 打印错误求教 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82790)
-- 发布时间：2016/3/24 19:04:00
-- 打印错误求教
今天打印的时候，不知道是什么原因，说是找不到应用程序，我又重新安装了几次OFFICE软件，都还是不行，请老师帮忙：
此主题相关图片如下：qq截图20160324190230.png
感谢老师们！
-- 发布时间：2016/3/24 20:09:00
--
打印什么？执行什么代码后报的错？
-- 发布时间：2016/3/24 20:17:00
--
\'筛选后全部选定区域
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()
-- 发布时间：2016/3/24 20:20:00
--
如果这样打不开，那你直接双击文件也是打不开的。你要设置好xls的默认打开程序。
-- 发布时间：2016/3/24 21:28:00
--
谢谢红袍老师,我的问题已经解决,试了很多次都不行,最后重装了系统就好了
-- 发布时间：2016/3/24 21:32:00
--
以下是引用yaojun在2016/3/24 21:28:00的发言：
谢谢红袍老师,我的问题已经解决,试了很多次都不行,最后重装了系统就好了
汗....这个也要重装系统？卸载重新安装MS Office，设置默认打开程序为Excel就行。
-- 发布时间：2016/3/25 15:07:00
--
汗....这个也要重装系统？卸载重新安装MS Office，设置默认打开程序为Excel就行。
之前就是这样操作的，不行才会重装系统，呵呵，谁叫俺是菜鸟