以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 狐爸请进“打印预览提示错误”(已解决) (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24469) |
-- 作者:xiaoqiwei -- 发布时间:2012/10/15 1:44:00 -- 狐爸请进“打印预览提示错误”(已解决) 这个问题出现在有些电脑测试没问题,但是有些电脑不行,请问这是什么问题?
错误截图:
代码如下:
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "excel\\当天销售明细单.xls") [此贴子已经被作者于2012-10-15 18:06:17编辑过]
|
-- 作者:blackzhu -- 发布时间:2012/10/15 7:34:00 -- Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "excel\\当天销售明细单.xls") Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) App.Visible = True Ws.printout(Preview:=True) App.Quit
小刺猬 你也看看APP从啥地方来的,你都没有定义. |
-- 作者:狐狸爸爸 -- 发布时间:2012/10/15 8:54:00 -- 1、要么没有安装excel 2、.net 2.0最好升级到sp2 |
-- 作者:xiaoqiwei -- 发布时间:2012/10/15 18:02:00 -- 以下是引用blackzhu在2012-10-15 7:34:00的发言:
Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "excel\\当天销售明细单.xls") Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) App.Visible = True Ws.printout(Preview:=True) App.Quit
小刺猬 你也看看APP从啥地方来的,你都没有定义. 老朱,代码没有Copy全 |
-- 作者:布莱克朱 -- 发布时间:2012/10/15 20:12:00 -- 呵呵 |