For Each x In Printers Print x.DeviceName Next 如果要指定使用某台打印机,可以使用下面的过程: Sub SetPrinterByName(s As String) Dim x
For Each x In Printers If x.DeviceName = s Then Set Printer = x Exit Sub End If Next End Sub 在打印前,调用 SetPrinterByName "PIC-PRINTER" 就可以切换到PIC-PRINTER,以后使用Printer对象输出就是通过PIC-PRINTER进行传真。 这种修改方法可以改变输出的打印机,但不会改变系统默认打印机,也就是说当你的程序退出后,系统的默认打印机仍然是原来的,不会给用户带来不方便。
For Each x In Printers
Print x.DeviceName
Next
如果要指定使用某台打印机,可以使用下面的过程:
Sub SetPrinterByName(s As String)
Dim x
For Each x In Printers
If x.DeviceName = s Then
Set Printer = x
Exit Sub
End If
Next
End Sub
在打印前,调用
SetPrinterByName "PIC-PRINTER"
就可以切换到PIC-PRINTER,以后使用Printer对象输出就是通过PIC-PRINTER进行传真。
这种修改方法可以改变输出的打印机,但不会改变系统默认打印机,也就是说当你的程序退出后,系统的默认打印机仍然是原来的,不会给用户带来不方便。