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

如何在以下代码中的打印前加入指定打印机的代码

            Dim Book As New XLS.Book(ProjectPath & "Attachments\供应商.xls")
            Dim fl As String = ProjectPath & "Reports\供应商.xls"
            Book.Build() '生成细节区
            Book.Save(fl) '保存工作簿
            Dim Proc As New Process '打开工作簿
            Proc.File = fl

            加入指定打印机的代码？
            Proc.Verb = "Print" '指定动作
            'CurrentTable.PrintSetting() '打开打印机设置对话框
            Proc.Start()

大侠，我不会写呀，麻烦帮写一个

语法

表达式.ActivePrinter

表达式 一个代表 Application 对象的变量。

示例

本示例显示活动打印机的名称。

MsgBox "The name of the active printer is " & _
    Application.ActivePrinter

? 2010 Microsoft Corporation。保留所有权利。

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)

Dim Rg As MSExcel.Range

Rg = Ws.Range("C7")

Rg.EntireColumn.AutoFit   '自动调整列宽

Rg.EntireRow.AutoFit

rg .WrapText =True '引用单个单元格

App.Visible = True

Ws.printout(Preview:=True,ActivePrinter:="pdfFactory Pro")

App.Quit

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