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

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

            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()

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

感谢楼主的帮助，抱歉实在看不懂，麻烦楼主根据1楼的代码给我定一个按指定的打印机打印的代码，非常感谢！

 这个是以前收藏楼主的一段代码，但是不理解，麻烦楼主把代码中的红色部分帮作一下注解：

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