主题：[求助]如何加入指定打印机的代码

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")

Dim fl As String =ProjectPath & "Reports\出库单.xls"

Book.Build()

Book.Save(fl) '保存工作簿

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Ws.printout(Preview:=True,ActivePrinter:="你的打印机名字")  '预览加指定打印机

App.Quit