Rutina para botón imprimir

Buenos días expertos.

lo cierto es que el titulo que he puesto no explica mucho, veréis tengo una label IMPRIMIR,que al seleccionarla me imprime un informe con unos datos, esta es la rutina...

Private Sub IMPRIMIR_Click()
Application.ScreenUpdating = False
Sheets("IMPRIMIR").Visible = True
Sheets("IMPRIMIR").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
MsgBox "El registro ha sido impreso", vbInformation, "MENSAJE"
Sheets("IMPRIMIR").Visible = False
End Sub

bien ahora quisiera incluir en esta rutina alguna linea, de forma que si al darle a imprimir no encuentra una impresora me devuelva una mensaje de error a través de un msgbox y ahi esta mi problema, he probado con algunas lineas de código pero no doy con la buena...espero que me podáis ayudar..muchas gracias.

un saludo.