Recognizing Printer

[Noella]

Hello
We have different HP printers throughout the firm and I need to write a
macro that will print a 5 page letter. First page to go from tray 3 and
subsequent pages from tray 2. Unfortunately, not all tray numbers are they
same, they range from 257 through to 260. Can I use an IF statement, to say:

If Active Printer = HP4350 Then
blah blah,
Else If ActivePrinter = HP4300 Then
blah blah
End If

Or does Word not recognize the printers?

Any help with this would be greatly appreciated.

Many thanks.

 

[Steve Yandl]

Word recognizes the printers.

Sub TestPrinterActive()
If InStr(Application.ActivePrinter, "HP4350") > 0 Then
MsgBox "Bingo"
Else
MsgBox "Oops"
End If
End Sub

You can use a bunch of ElseIf lines as you suggest or a Select Case. I'd
use InStr like I did in the example rather than insist on a complete match
as the printer name is often appended with network descriptions when you use
Application.ActivePrinter.


Steve