On Error Goto
 

I've noticed some erratic behavior on our network printers and I'm trying to
trap any potential errors and allow a user to select another printer if there
is an error printing. This is my code:

On Error GoTo Below
Application.Dialogs(xlDialogPrinterSetup).Show
If Below = True Then
MsgBox "Please select another printer..."
End If

When I run the sub, I get a "Compile Error, Label not Defined" message. Can
someone please point my mistake.

Thanks,
Ryan--

--
RyGuy

On Error Goto
 

Lose the If then stuff .. you should be good to go.

Sub yoursub()
On Error GoTo Below
Application.Dialogs(xlDialogPrinterSetup).Show
Below:
MsgBox "Please select another printer..."

End sub
"ryguy7272" wrote:

I've noticed some erratic behavior on our network printers and I'm trying to
trap any potential errors and allow a user to select another printer if there
is an error printing. This is my code:

On Error GoTo Below
Application.Dialogs(xlDialogPrinterSetup).Show
If Below = True Then
MsgBox "Please select another printer..."
End If

When I run the sub, I get a "Compile Error, Label not Defined" message. Can
someone please point my mistake.

Thanks,
Ryan--

--
RyGuy

On Error Goto
 

Hi Ryguy,

How and where have you declared
Below.

Try posting the relevant routine.



---
Regards.
Norman


"ryguy7272" wrote in message
...
I've noticed some erratic behavior on our network printers and I'm trying
to
trap any potential errors and allow a user to select another printer if
there
is an error printing. This is my code:

On Error GoTo Below
Application.Dialogs(xlDialogPrinterSetup).Show
If Below = True Then
MsgBox "Please select another printer..."
End If

When I run the sub, I get a "Compile Error, Label not Defined" message.
Can
someone please point my mistake.

Thanks,
Ryan--

--
RyGuy

On Error Goto
 

Where do you have "Below" defined? How does it equate to true?

If Err.Number < 0 Then
MsgBox "Please select another printer..."
Application.Dialogs(xlDialogPrinterSetup).Show
End If


"ryguy7272" wrote:

I've noticed some erratic behavior on our network printers and I'm trying to
trap any potential errors and allow a user to select another printer if there
is an error printing. This is my code:

On Error GoTo Below
Application.Dialogs(xlDialogPrinterSetup).Show
If Below = True Then
MsgBox "Please select another printer..."
End If

When I run the sub, I get a "Compile Error, Label not Defined" message. Can
someone please point my mistake.

Thanks,
Ryan--

--
RyGuy

On Error Goto
 

I'm using ON's suggestion and I just got an error. This line causes the error:
Application.Dialogs(xlDialogPrinterSetup).Show

It only happens with one particular printer...

I can't figure out why...

--
RyGuy


"Norman Jones" wrote:

Hi Ryguy,

How and where have you declared
Below.

Try posting the relevant routine.



---
Regards.
Norman


"ryguy7272" wrote in message
...
I've noticed some erratic behavior on our network printers and I'm trying
to
trap any potential errors and allow a user to select another printer if
there
is an error printing. This is my code:

On Error GoTo Below
Application.Dialogs(xlDialogPrinterSetup).Show
If Below = True Then
MsgBox "Please select another printer..."
End If

When I run the sub, I get a "Compile Error, Label not Defined" message.
Can
someone please point my mistake.

Thanks,
Ryan--

--
RyGuy

On Error Goto
 

Hello

Attention, "on error goto" is not a same a "goto"

I propose :

Sub yoursub()
On Error GoTo E1
Application.Dialogs(xlDialogPrinterSetup).Show
S1: on error goto 0
MsgBox "Please select another printer..."
exit sub
E1: resume S1
End sub



"Office_Novice" a écrit dans le
message de ...
Lose the If then stuff .. you should be good to go.

Sub yoursub()
On Error GoTo Below
Application.Dialogs(xlDialogPrinterSetup).Show
Below:
MsgBox "Please select another printer..."

End sub
"ryguy7272" wrote:

I've noticed some erratic behavior on our network printers and I'm trying
to
trap any potential errors and allow a user to select another printer if
there
is an error printing. This is my code:

On Error GoTo Below
Application.Dialogs(xlDialogPrinterSetup).Show
If Below = True Then
MsgBox "Please select another printer..."
End If

When I run the sub, I get a "Compile Error, Label not Defined" message.
Can
someone please point my mistake.

Thanks,
Ryan--

--
RyGuy

On Error Goto
 

Hi Ryguy,

=============
I'm using ON's suggestion and I just got an error. This line causes the
error:
Application.Dialogs(xlDialogPrinterSetup).Show

It only happens with one particular printer...

I can't figure out why...
=============


Try posting the relevant routine.



---
Regards.
Norman

On Error Goto
 

try somthing like this, If an error occurs it will show the printer dialog box.

Sub Ry()
On Error GoTo Below
' Whatever you procedure is





Below:
Application.Dialogs(xlDialogPrinterSetup).Show

End Sub

"ryguy7272" wrote:

I've noticed some erratic behavior on our network printers and I'm trying to
trap any potential errors and allow a user to select another printer if there
is an error printing. This is my code:

On Error GoTo Below
Application.Dialogs(xlDialogPrinterSetup).Show
If Below = True Then
MsgBox "Please select another printer..."
End If

When I run the sub, I get a "Compile Error, Label not Defined" message. Can
someone please point my mistake.

Thanks,
Ryan--

--
RyGuy

On Error Goto
 

I tried that too, ON. It just keeps erroring, or going to the default
printer. The point for 'xlDialogPrinterSetup' line of code is to allow users
to actually...choose a printer. It just keeps giving me errors. Frustrating!

Most recent attempt was this:
Application.Dialogs(xlDialogPrinterSetup).Show
If Err.Number < 0 Then
MsgBox "Please select another printer..."
End If

I didn't know if the 'xlDialogPrinterSetup' should go inside the if...end if.
Well, I tried JLG's code, as written, and that didn't wokr for me either.

Any other thoughts on this matter?

--
RyGuy


"Office_Novice" wrote:

try somthing like this, If an error occurs it will show the printer dialog box.

Sub Ry()
On Error GoTo Below
' Whatever you procedure is





Below:
Application.Dialogs(xlDialogPrinterSetup).Show

End Sub

"ryguy7272" wrote:

I've noticed some erratic behavior on our network printers and I'm trying to
trap any potential errors and allow a user to select another printer if there
is an error printing. This is my code:

On Error GoTo Below
Application.Dialogs(xlDialogPrinterSetup).Show
If Below = True Then
MsgBox "Please select another printer..."
End If

When I run the sub, I get a "Compile Error, Label not Defined" message. Can
someone please point my mistake.

Thanks,
Ryan--

--
RyGuy

On Error Goto
 

Private Sub YourProc()
On Error GoTo Below
'Paste your code between here

'And Here
Below:
msgbox " please select another printer..."
Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

If you only see the default printer maybe you need to set up other printers
on that computer.

"ryguy7272" wrote:

I tried that too, ON. It just keeps erroring, or going to the default
printer. The point for 'xlDialogPrinterSetup' line of code is to allow users
to actually...choose a printer. It just keeps giving me errors. Frustrating!

Most recent attempt was this:
Application.Dialogs(xlDialogPrinterSetup).Show
If Err.Number < 0 Then
MsgBox "Please select another printer..."
End If

I didn't know if the 'xlDialogPrinterSetup' should go inside the if...end if.
Well, I tried JLG's code, as written, and that didn't wokr for me either.

Any other thoughts on this matter?

--
RyGuy


"Office_Novice" wrote:

try somthing like this, If an error occurs it will show the printer dialog box.

Sub Ry()
On Error GoTo Below
' Whatever you procedure is





Below:
Application.Dialogs(xlDialogPrinterSetup).Show

End Sub

"ryguy7272" wrote:

I've noticed some erratic behavior on our network printers and I'm trying to
trap any potential errors and allow a user to select another printer if there
is an error printing. This is my code:

On Error GoTo Below
Application.Dialogs(xlDialogPrinterSetup).Show
If Below = True Then
MsgBox "Please select another printer..."
End If

When I run the sub, I get a "Compile Error, Label not Defined" message. Can
someone please point my mistake.

Thanks,
Ryan--

--
RyGuy