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

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
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.

Merci par avance de vos aides précieuses.

Cordialement