'针对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="..."