更改打印机的两种方法

'针对Printer的方法
Dim i As Integer

For i = 0 To Printers.Count - 1
  MsgBox Printers .DeviceName
Next i

Set Printer = Printers(2)
MsgBox Printer.DeviceName

Printer.Print "ILOVEYOU"
Printer.EndDoc

'针对使用自动化服务器EXCEL或ET的一种方法      
Application.ActivePrinter="..."