Bonjour,
Je cherche une macro qui teste si l'imprimante est opérationnelle (On line, présence papier ... etc) avant de démarrer l'impression.
J'ai cherché sur les forum, mais rien ne correspond a ce que je cherche précisément.
J'ai bien essayé le code suivant
Mais à part donner le nom de l'imprimante sélectionnée, cela ne renvoie aucun message comme quoi par exemple l'imprimante est off line.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Dim Imprimante_OK As String 'Imprimante_OK = "" On Error Resume Next Imprimante_OK = Application.ActivePrinter If Err Or (Imprimante_OK = "") Then MsgBox "No printer connected !", vbCritical, "ERREUR IMPRIMANTE" GoTo FIN End If MsgBox Imprimante_OK Stop
Merci par avance de vos aides précieuses.
Cordialement
Partager