liste impimante

Question

bonjour,
j'aimerai lister toutes les imprimantes qui sont installées sur mon serveur (y en a 1 paquet)  avec le port utilisé et le driver.
j'ai essayer plein de truc du style:
Dim objprinter As Printer

For Each objprinter In Printers
    Set Printer = objprinter
    Debug.Print "Device name: " & Printer.DeviceName & vbCr _
        & "Driver name: " & Printer.DriverName & vbCr _
        & "Port: " & Printer.Port
Next

 il me donne tous les noms mais a chaque fois il me donne le port de l'imprimante par défaut et toujours la meme chose pour le driver

pouvez vous m'aider ?

snif!!!!

cs_CanisLupus · Answer

Salut,
A la place de :
Dim objprinter As Printer

For Each objprinter In Printers
Set Printer = objprinter
Debug.Print "Device name: " & Printer.DeviceName & vbCr _
& "Driver name: " & Printer.DriverName & vbCr _
& "Port: " & Printer.Port
Next

j'aurais écris :
Dim objprinter As Printer

For Each objprinter In Printers
Debug.Print "Device name: " & objprinter.DeviceName & vbCr _
& "Driver name: " & objprinter.DriverName & vbCr _
& "Port: " & objprinter.Port
Next

Cordialement

CanisLupus

sboiss · Answer

j'ai essayé mais c'est toujours pareil!

cs_CanisLupus · Answer

Dans ma boite, ça donne ça :

Device name: Lexmark Optra S 1255
Driver name: LMPCL5C
Port: \P6049\Lexmark
Device name: EPSON Stylus C80 Series
Driver name: EPIJNL60
Port: \P5540\epson
Device name: Lexmark W820
Driver name: LMPCL5C
Port: \Nt-ac\ac-030062

donc ça fonctionne, tu dois avoir un autre problème.

Cordialement

CanisLupus

sboiss · Answer

Ok mais quel peut etre ce problème ?
je suis dans un module access je travaille sur un terminal via terminal server et les imprimantes sont sur ce serveur.

j'ai essayé sur une machine indépendante, il me met toujours le port de l'imprimante par defaut et en driver winspool

cs_CanisLupus · Answer

Ce code ne fait qu'énumérer les drivers qui sont installés sur ton poste donc s'il sont inutilisés, à part le device name, les autres propriétés seront sans doute les mêmes si tu ne l'exécute pas sur le serveur lui-même.

Pour connaître les imprimantes déclarées sur le serveur à partir d'un autre poste, il faudrait voir du côté d'APIs comme WNetEnumResource.

A l'adresse suivante, tu auras un peu plus de renseignements et même des exemples.

http://www.mentalis.org/apilist/WNetEnumResource.shtml

Cordialement

CanisLupus

sboiss · Answer

je travaille sur une Wyse, un terminal qui est directement sur le serveur. donc ça devrait marcher mais meme sur un poste qui a une imprimante sur le port LPT1 et une autre en USB il donne les memes infos.

cs_CanisLupus · Answer

Pour l'instant, je ne vois pas de soluce.
Je vais essayer de me renseigner chez des copains qui travaillent sur des serveurs.

En attendant, tu peux reposer ta question car elle doit être loin dans la liste. Des fois que quelqu'un ait une soluce.

Cordialement

CanisLupus

laurent207 · Answer

salut,

si ça t'interresse toujours g une soluce plutôt artisanalle mais ça marche, en fait je me connecte à la base de registre du serveur et je lit les valeurs qui t'interresse.

J'avais mis une source pour lire une base de registre distante et j'avaismis en exemple la liste des imp, tu as qu'a rajouter les autres valeurs à lire.

http://www.vbfrance.com/code.aspx?ID=18932

Bon courage

laurent207

Liste impimante

8 réponses

Discussions similaires