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,
|