以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求教，有关VBA打印功能  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22062)
--  作者：baoxyang
--  发布时间：2012/8/1 16:07:00
--  求教，有关VBA打印功能

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintOut(From:=1,To:=10,Copies:=3,Preview:=True,ActivePrinter:="pdfFactory Pro")

但有遇到这样的问题，会弹出一个提示框，D:\\Report.xls文件已打开，只要确定即可显示打印。

但关键是如何去掉此提示框呢？