Definir l'impimeante par defaut

Omega15 Messages postés 55 Date d'inscription vendredi 27 août 2004 Statut Membre Dernière intervention 7 septembre 2009 - 1 août 2005 à 12:06
cs_toto1980 Messages postés 81 Date d'inscription lundi 13 janvier 2003 Statut Membre Dernière intervention 15 février 2008 - 1 août 2005 à 13:39
Bonjour,
J'aimerais savoir si il est possible de definir, en ligne de code, l'imprimante pas defaut d'un poste avec uniquement le nom de l'imprimante.

exemple avec PHOTOCOPIEUR.

1 réponse

cs_toto1980 Messages postés 81 Date d'inscription lundi 13 janvier 2003 Statut Membre Dernière intervention 15 février 2008 1
1 août 2005 à 13:39
Voila:
For Each x In Printers
If x.DeviceName = "PHOTOCOPIEUR" Then
' Définit l'imprimante comme imprimante par
' défaut du système.
Set Printer = x
' Cesse la recherche d'imprimante.
Exit For
End If
Next
0