obtenir la liste des imprimantes RESEAU installées sur l'ordinateur
1 réponse
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/code/Impr/ImprimantesInstallees.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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Pierron
Bonsoir Etudes; 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" <ENLEVERuesl.etudes@@wanadoo.fr> a écrit dans le message de news:%
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/code/Impr/ImprimantesInstallees.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.
Bonsoir Etudes;
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" <ENLEVERuesl.etudes@@wanadoo.fr> a écrit dans le message de
news:%23zPLKFV2EHA.804@TK2MSFTNGP12.phx.gbl...
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/code/Impr/ImprimantesInstallees.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.
Bonsoir Etudes; 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" <ENLEVERuesl.etudes@@wanadoo.fr> a écrit dans le message de news:%
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/code/Impr/ImprimantesInstallees.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.
