主题：求教，有关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文件已打开，只要确定即可显示打印。

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