我用以下代码直接打印生成的Excel报表，但是每次打印完都会出现以下窗口，需要手动关闭才可以；有没有办法不让弹出这样的窗口进行直接打印呢？

Dim filepath As String = "D:\\reports\\" & r("SrsNO") & "(办单号)工艺书.xls"
Book.Build() \'生成细节区
Book.Save(filepath)\'保存工作簿
\'以下代码用于设置自动换行及调整行高(对合并单元格无效)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(filepath)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
Rg.WrapText = True
Rg.EntireRow.AutoFit  \'自动调整行高
App.Visible = True
Ws.PrintOut(Preview:=False,ActivePrinter:="doPDF v7")    \'直接打印;
App.Quit

wb.saved = True

App.DisplayAlerts = False

App.Visible = True
Ws.PrintOut(Preview:=False,ActivePrinter:="doPDF v7")    \'直接打印;
App.Quit

同理，我用以下代码直接打印PDF，但是每次打印的时候都会弹出PDF阅读软件的界面，怎么样让不弹出这样的界面？

Dim Proc As New Process

Proc.File = "D:\\reports\\C1Document.pdf"

Proc.Verb = "Print" \'指定动作

Proc.Start()

方法一：你可以关闭那个文件

http://www.foxtable.com/webhelp/scr/2713.htm

方法二：把pdf转换成图片，然后直接打印图片。

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77213&skin=0