VBA - Tester imprimante avant impression de document

Version imprimable

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:

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

28/11/2014, 20h30
Docmarti

Bonjour andre michel

Tu peux connaître l'état de l'imprimante avant ou pendant l'impression avec ce code
01/12/2014, 17h17
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

Bonjour,

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

Code:

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

04/12/2014, 16h57
andre michel

Bonsoir,

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

Cordialement