loop in error handler printer exception 2

G

Guest

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 = "\\myregion\myprinter on " & NetworkNumb
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,
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

printer exception, error handler, need to loop through network num 4
error handler, goto errgetfile 1
1004 error on function for printer 1
value doesn't get passed to a sub-routine, loop doesn't iterate 1
help with calling a sub procedure, doesn't compile 1
runtime error 9 subscript out of range #3 3
word more intelligent than excel??? 2
runtime error #9 subscript out of bounds #4 2

Top