How to select from Multiple printers

[KenBZim]

Thanks Hack, Thanks Guys The first part now works and I have now established that the printer that I want to print to is #2

But when I try this:

Printer(2).Print ‘Hello’
I get the same error message on the above line ‘Object does not support this property or method’

I have tried Printers(2).Print ‘Hello’ but I still get the same error.
What am I missing here?

[svg3414]

The above code I have got from

http://www.freevbcode.com/ShowCode.A...#selectprinter

I have not tried it myself.
I am surprised that it does not seem to work.

[svg3414]

The following seems to work.

Dim defprinter As Printer

For i = 0 To Printers.Count - 1
If Printers(i).DeviceName = Printer.DeviceName Then
Set defprinter = Printers(i) 'The current default printer
Exit For
End If
Next

Set Printer = Printers(2) ' the new default printer
Printer.Print "Hello"
Printer.EndDoc
Set Printer = Printers(i) ' Revert to the original default printer