error handler, goto errgetfile
 

Our network printer can change from 01 to 09. right now it is 02 but if they
change it on the network then the print macros don't work. I would like a
case statement so it just tries all the possibilities or gives the user a
message or a loop but I don't know how to do it.


On Error GoTo errGetFile
' the network number can change, if error try another number between
1 ... 9
Application.ActivePrinter = "\\martinezfs1-bay\Ca-Martinez-94C on
Ne02:"
Exit Sub
' handle possible printer exceptions
errGetFile

Application.ActivePrinter = "\\martinezfs1-bay\Ca-martinez-94C on
Ne01:"

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


tia,

error handler, goto errgetfile
 

I will repost.

"Janis" wrote:

Our network printer can change from 01 to 09. right now it is 02 but if they
change it on the network then the print macros don't work. I would like a
case statement so it just tries all the possibilities or gives the user a
message or a loop but I don't know how to do it.


On Error GoTo errGetFile
' the network number can change, if error try another number between
1 ... 9
Application.ActivePrinter = "\\martinezfs1-bay\Ca-Martinez-94C on
Ne02:"
Exit Sub
' handle possible printer exceptions
errGetFile

Application.ActivePrinter = "\\martinezfs1-bay\Ca-martinez-94C on
Ne01:"

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


tia,