Discussion :

[mickael28]

Bonjour a tous,

Je voudrai afficher les informations sur l'imprimante (nom, description, port,...)
Ainsi que son status (Etat): Prêt, cartouche vide, ...

Avec le code ci-dessous j'ai ce qu'il me faut sauf le statut qui est un integer.
Exemple: 3 pour "Prêt" et 1 pour "Cartouche vide".

Comment puis-je avoir ces état en texte ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from Win32_Printer where PortName = 'IP_10.206.2.202'")	
 
For Each objPrinter In colInstalledPrinters
MsgBox "Name: " & objPrinter.Name & Chr(10) & _
	"Location: " & objPrinter.Location & Chr(10) & _
	"Description: " & objPrinter.Description & Chr(10) & _
	"DriverName: " & objPrinter.DriverName & Chr(10) & _
	"PortName: " & objPrinter.PortName & Chr(10) & _
	"ShareName: " & objPrinter.ShareName & Chr(10) & _
	"Status: " & objPrinter.PrinterStatus
Next

[ucfoutu]

Bonjour,

Discussion qui mériterait donc ton intérêt :
http://www.developpez.net/forums/d49...er-imprimante/
Elle (et le code auquel elle se réfère) nécessite un niveau avancé.

[SfJ5Rpw8]

Sur MSDN :
http://msdn.microsoft.com/fr-fr/libr...us,VS.85).aspx
printerstatus donne

1 (0x1) Other autre
2 (0x2) Unknown inconnu
3 (0x3) Idle en attente
4 (0x4) Printing impression en cours
5 (0x5) Warming Up préchauffage
6 (0x6) Stopped printing impression stoppée
7 (0x7) Offline hors-ligne

les traductions sont peu-être à revoir...

une solution pour la traduction valeur => chaîne peu être tout simplement un tableau :

Code :

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

1
2
3
4
5
  tb = Array("#N/A#", "autre", "inconnu", "en attente", "impression en cours", "préchauffage", "impression stoppée", "Hors-ligne")
  Dim iStatus As Integer
  For iStatus = 1 To UBound(tb)
    MsgBox tb(iStatus)
  Next

[mickael28]

Merci pour vos réponse.

Je vais essayer celle de ucfoutu, elle me conviendrai mieux.

Je vous tiendrai au courant de ce que cela donnera.

Bonne journée.