主题：Excel打印如何指定打印机？

创建窗体,在窗体上创建下拉窗口,在窗体的AfterLoad的事件中写入下面代码,就能列出本地打印机列表

Dim LocalPrinters As String="|"

For Each LocalPrinter As String In InstalledPrinters
    LocalPrinters=LocalPrinters+"|"+LocalPrinter
Next

Dim cmb As WinForm.ComboBox
cmb = Forms("窗口1").Controls("ComboBox1")
cmb.ComboList =  LocalPrinters

可以先通过InstalledPrinters获取到本机已安装打印机名 可以考虑设置一个选择窗口 在打印之前先弹出来 用一个变量来保存选择的打印机名 然后在后面调用

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
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintOut(ActivePrinter:="你的打印机名")

PrintOut还有好几个参数 我这里只是给你一个思路 如果不想弹出excel界面 直接打印 可以先把APP.VISIBLE设置为false ranhou printout 的preview设置为false