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