以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  狐爸请进“打印预览提示错误”(已解决)  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=24469)

--  作者:xiaoqiwei
--  发布时间:2012/10/15 1:44:00
--  狐爸请进“打印预览提示错误”(已解决)

 这个问题出现在有些电脑测试没问题,但是有些电脑不行,请问这是什么问题?

 

 

 错误截图: 

 

 
图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

 

 

代码如下:

 

    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "excel\\当天销售明细单.xls")
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    App.Visible = True
    Ws.PrintPreview
    App.Quit


[此贴子已经被作者于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
--  
图片点击可在新窗口打开查看  呵呵