OVH Cloud OVH Cloud

liste des imprimantes

4 réponses
Avatar
steph
j'aimerai lister les imprimantes mais mon code r=E9cup=E8re le=20
nom mais le port est celui de l'imprimante par defaut.

voici mon code:
Dim objprinter As Printer

For Each objprinter In Printers
Debug.Print objprinter.DeviceName, objprinter.Port
Next

4 réponses

Avatar
Raymond [mvp]
Bonjour.
tu trouveras une base exemple qui crée une table avec toutes les imprimantes
et le driver et le port sur la page:
http://access.vba.free.fr/imprimante_defaut.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"steph" a écrit dans le message de
news:214a201c45a95$c1b24810$
j'aimerai lister les imprimantes mais mon code récupère le
nom mais le port est celui de l'imprimante par defaut.

voici mon code:
Dim objprinter As Printer

For Each objprinter In Printers
Debug.Print objprinter.DeviceName, objprinter.Port
Next
Avatar
Eric
"steph" écrivait news:214a201c45a95
$c1b24810$:

j'aimerai lister les imprimantes mais mon code récupère le
nom mais le port est celui de l'imprimante par defaut.

voici mon code:
Dim objprinter As Printer

For Each objprinter In Printers
Debug.Print objprinter.DeviceName, objprinter.Port
Next





re,

je t'avais posté ca sur le NG de VB.

"Bonjour,

Regardes ce lien puisque tu es sous Access:

Auteur Raymond Seneque
http://access.seneque.free.fr/selection_imprimante.htm"

L'auteur est le même : Raymond (MVP).

;-)

Eric

Avatar
bonjour,
ce que je veux c'est juste récupérer la liste pour le
mettre dans une table et avoir le port que l'on configure
dans les proprétés de l'imprimante et pas Ne avec le
numéro d'index.

pouvez vous m'aider ?
Avatar
steph
oui mais c'est pas tout à fais ce que je veux.
ce que je veux c'est juste récupérer la liste pour le
mettre dans une table et avoir le port que l'on configure
dans les proprétés de l'imprimante et pas Ne avec le
numéro d'index.