I don't know how to make this error handler loop through the possible network
numbers. The current network number is 02 for the printer but it can change
from 01 through 09. If they change it I would like it to loop through the
possibilities and then if it can't print give the user a warning.

Dim NetworkNumb as string
NetworkNumb = Ne02:

On Error GoTo errGetFile
' the network number can change, if error try another number
between 1 through 9
Application.ActivePrinter = "\\mynetworkregion\myprinter on " & NetworkNumb
Exit Sub
' handle possible printer exceptions
errGetFile
Application.ActivePrinter = "\\mynetworkregion\myprinter on
Ne01:"

Else
MsgBox " warning there is a problem with the printstring."
Resume Next


tia,