Discussion :

[andre michel]

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

[Docmarti]

Bonjour andre michel

Tu peux connaître l'état de l'imprimante avant ou pendant l'impression avec ce code

[andre michel]

Bonjour,

Merci beaucoup pour le lien et j'ai essayé le code.
Mais ce que je cherche c'est une fonction qui puisse alerter l'utilisateur qu'il y a un problème avec l'imprimante et ainsi arrêté l'impression.
Il n'est pas nécessaire de donner le choix de l'imprimante. L'impression se ferra sur l'imprimante par défaut.

Cordialement

[Docmarti]

Bonjour,

Cette fonction détecte l'état de l'imprimante mais pas la présence de papier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Function TesterActivePrinter(ByRef message, ByRef printerStatus) As Long
 
    Dim strComputer As String
    Dim objWMIService
    Dim colInstalledPrinters
    Dim objPrinter
 
    message = ""
 
    Range("A1").PrintOut 'Forcer mise a jour du statut de l'imprimante
 
    strComputer = "."
 
    Set objWMIService = GetObject("winmgmts:" _
                                  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
 
    Set colInstalledPrinters = objWMIService.ExecQuery _
                               ("Select * from Win32_Printer")
 
    For Each objPrinter In colInstalledPrinters
 
     If InStr(Application.ActivePrinter, objPrinter.name) Then
 
      TesterActivePrinter = objPrinter.printerStatus
      printerStatus = "Statut " & objPrinter.printerStatus
      message = "L'imprimante " & objPrinter.name
 
        Select Case objPrinter.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
End Function
 
Sub test()
 
  Select Case TesterActivePrinter(message, printerStatus)
   Case 3, 4, 5
     'OK
   Case Else
     MsgBox message, , printerStatus
     Stop
  End Select
 
End Sub

[andre michel]

Bonsoir,

Super!
Merci beaucoup pour cette macro. Cela répond exactement à mes attentes.

Cordialement