test imprimante

Option Explicit
 
Sub test()
    Dim Message As String, Etat_Imprimante As String
    Dim Nom_Ordi As String, Reponse As String
    Dim Objet_WMI_Service As Object
    Dim Liste_Imprimantes_Installées As Object
    Dim Imprimante As Object
encore:
    Message = ""
 
    Range("AX6000").PrintOut 'Forcer mise a jour du statut de l'imprimante
 
    Nom_Ordi = "."
 
    Set Objet_WMI_Service = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Nom_Ordi & "\root\cimv2")
    Set Liste_Imprimantes_Installées = Objet_WMI_Service.ExecQuery("Select * from Win32_Printer")
 
    For Each Imprimante In Liste_Imprimantes_Installées
 
     If InStr(Application.ActivePrinter, Imprimante.Name) Then
        Etat_Imprimante = Imprimante.printerStatus
        Message = "L'imprimante " & Imprimante.Name
        Select Case Imprimante.printerStatus
          Case 3
             Message = Message & " est au repos"
          Case 4
            Message = Message & " est en cours d'impression"
          Case 5
            Message = Message & " est en rechauffement"
          Case Else
            Message = Message & " est hors ligne"
        End Select
      End If
    Next
    Set Liste_Imprimantes_Installées = Nothing
    Set Objet_WMI_Service = Nothing
  
  Select Case Etat_Imprimante
   Case 3, 4, 5
     'lance la vraie impression
     Range("A1:X100").PrintOut
     
   Case Else
     Reponse = MsgBox(Message & vbCrLf & "Veuillez relancer lorsque celle ci sera ok", vbOKCancel, "Etat de l'imprimante")
     If Reponse = vbOK Then GoTo encore

  End Select

End Sub