主题：[求助]怎么在原打印代码上添加指定打印机的代码

方法一：设置默认打印机

Dim obj As object = CreateObject("WScript.Network")
obj.SetDefaultPrinter("打印机名")

方法二：直接用vba的printout打印

http://www.foxtable.com/webhelp/scr/2121.htm

参考代码

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
app.visible = True
ws.PrintPreview
'Ws.PrintOut(ActivePrinter:="pdfFactory Pro")
app.quit