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,

I didn't test this so fwiw:

Sub SetPrinter()
Dim Counter As Integer
On Error Resume Next
For Counter = 1 To 9
Application.ActivePrinter = _
"\\mynetworkregion\myprinter on Ne0" & Counter
If Err.Number = 0 Then Exit For
Next
If Err.Number < 0 Then MsgBox "No print"
End Sub


--
Jim
"Janis" wrote in message
...
|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,

Sub SetPrinter()
Dim Counter As Integer
On Error Resume Next
For Counter = 1 To 9
Err.Clear ''<<< Added
Application.ActivePrinter = _
"\\mynetworkregion\myprinter on Ne0" & Counter
If Err.Number = 0 Then Exit For
Next
If Err.Number < 0 Then MsgBox "No print"
End Sub

--
Jim
"Jim Rech" wrote in message
...
|I didn't test this so fwiw:
|
| Sub SetPrinter()
| Dim Counter As Integer
| On Error Resume Next
| For Counter = 1 To 9
| Application.ActivePrinter = _
| "\\mynetworkregion\myprinter on Ne0" & Counter
| If Err.Number = 0 Then Exit For
| Next
| If Err.Number < 0 Then MsgBox "No print"
| End Sub
|
|
| --
| Jim
| "Janis" wrote in message
| ...
||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,
|
|

thanks so much I guess its just a counter with a loop but I wouldn't have
guessed the clear. I got to learn error handling.

"Jim Rech" wrote:

Sub SetPrinter()
Dim Counter As Integer
On Error Resume Next
For Counter = 1 To 9
Err.Clear ''<<< Added
Application.ActivePrinter = _
"\\mynetworkregion\myprinter on Ne0" & Counter
If Err.Number = 0 Then Exit For
Next
If Err.Number < 0 Then MsgBox "No print"
End Sub

--
Jim
"Jim Rech" wrote in message
...
|I didn't test this so fwiw:
|
| Sub SetPrinter()
| Dim Counter As Integer
| On Error Resume Next
| For Counter = 1 To 9
| Application.ActivePrinter = _
| "\\mynetworkregion\myprinter on Ne0" & Counter
| If Err.Number = 0 Then Exit For
| Next
| If Err.Number < 0 Then MsgBox "No print"
| End Sub
|
|
| --
| Jim
| "Janis" wrote in message
| ...
||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,
|
|

I will test it. The users get shut down and think the world ends when its
just the print string. thanks,

"Jim Rech" wrote:

I didn't test this so fwiw:

Sub SetPrinter()
Dim Counter As Integer
On Error Resume Next
For Counter = 1 To 9
Application.ActivePrinter = _
"\\mynetworkregion\myprinter on Ne0" & Counter
If Err.Number = 0 Then Exit For
Next
If Err.Number < 0 Then MsgBox "No print"
End Sub


--
Jim
"Janis" wrote in message
...
|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,