主题：Excle报表打印问题

我用以下代码直接打印生成的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