obtenir la liste des imprimantes RESEAU installées sur l'ordinateur
Le
etudes
Bonjour,
je travaille en VBA.
à la suite du des suggestions de Eric KERGRESSE, j'ai récupéré le code
http://frederic.sigonneau.free.fr/c...allees.txt afin
d'obtenir une liste des imprimantes installées sur le poste. seulement, le
pb c'est que mes imprimantes sont des imprimantes réseau installées sur un
serveur d'impression W2Kserver dans un environnement AD et que ça a pas
l'air de lui plaire mais alors là pas du tout, c'est à dire qu'il me renvoi
très bien les imprimantes locales mais pas les imprimantes réseau, et
justement les impressions se font en général sur les imprimantes réseau (un
nom du style "HP1234 1er étage sur serveur").
en plus du nom il me reste un soucis ensuite, car je veux utiliser le
résultat pour pouvoir sélectionner l'imprimante, c-a-d changer la valeur de
ActivePrinter mais il me faudrait alors aussi le numéro de port de
l'imprimante pour faire ActivePrinter = Impr(i) & NumPort(Impr(i)) et je
sais pas du tout où récupérer le numéro de port.
sur ce je vous souhaite un bon Week-End à tou(te)s.
je travaille en VBA.
à la suite du des suggestions de Eric KERGRESSE, j'ai récupéré le code
http://frederic.sigonneau.free.fr/c...allees.txt afin
d'obtenir une liste des imprimantes installées sur le poste. seulement, le
pb c'est que mes imprimantes sont des imprimantes réseau installées sur un
serveur d'impression W2Kserver dans un environnement AD et que ça a pas
l'air de lui plaire mais alors là pas du tout, c'est à dire qu'il me renvoi
très bien les imprimantes locales mais pas les imprimantes réseau, et
justement les impressions se font en général sur les imprimantes réseau (un
nom du style "HP1234 1er étage sur serveur").
en plus du nom il me reste un soucis ensuite, car je veux utiliser le
résultat pour pouvoir sélectionner l'imprimante, c-a-d changer la valeur de
ActivePrinter mais il me faudrait alors aussi le numéro de port de
l'imprimante pour faire ActivePrinter = Impr(i) & NumPort(Impr(i)) et je
sais pas du tout où récupérer le numéro de port.
sur ce je vous souhaite un bon Week-End à tou(te)s.
Poser une question
Sub EnumPrinter()
Dim Msg As String
With CreateObject("WScript.Network").EnumPrinterConnections
For iCount = 0 To .Count - 1 Step 2
Msg = Msg & .Item(iCount + 1) & " sur port: " & .Item(iCount) & vbLf
Next
End With
MsgBox Msg
End Sub
' Exemple pour affecter une imprimante réseau:
Sub DefaultPrinter()
With CreateObject("WScript.Network")
.SetDefaultPrinter "\Serveur01epslas01"
End With
End Sub
MP
"etudes" news:%