OnError

[DS]

this line gives me an error when the printer is not connected
Set Application.Printer = Application.Printers(Me.TxtName.Value)
So I want to do an OnError
How would I do this....

Set Application.Printer = Application.Printers(Me.TxtName.Value)
If OnError Then
DoCmd.OpenForm "frmMistake"
Else:
End If

Any help appreciated,
Thanks
DS