Print_Erreur Imprimante

Bonjour,

La macro Print dans le fichier ci-joint renvoie un erreur si l'imprimante n'est pas connectée, est-il possible d'afficher un message pour l'indiquer et sortir du code pour éviter l'erreur.

En vous remerciant,

Bonjour,

Tu peut modifier comme cela avec un msgbox

    End With
    On Error GoTo 1
    Application.PrintCommunication = True
    Selection.PrintOut From:=1, To:=1, Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
1:
    MsgBox "- Pas d'imprimante en fonction !", vbInformation, "Gestion Imprimante"
End Sub

Bonjour,

Je vous remercie pour le temps que vous passez sur mon problème, je viens de tester le code et l’impression ne fonctionne plus et affiche le message Pas d'imprimante en fonction.

Cdlt