Imprimante par défault

Signaler
Messages postés
77
Date d'inscription
mardi 18 octobre 2005
Statut
Membre
Dernière intervention
1 février 2007
-
Messages postés
386
Date d'inscription
samedi 4 octobre 2008
Statut
Membre
Dernière intervention
19 février 2018
-
Bonjour tous le monde,

Je voudrais savoir si quelqu'un sait comment faire pour changer l'imprimante par défault.
merci et bonne journée.

p.s. Je suis en VB.net

1 réponse

Messages postés
386
Date d'inscription
samedi 4 octobre 2008
Statut
Membre
Dernière intervention
19 février 2018
2
Bonjour,

Sa, sa devrait te donné un petit coup de main.

' Déclaration des variables.
Dim wshnetwork As Object


' Installation de l'imprimante.
Set wshnetwork = CreateObject("wscript.network")
wshnetwork.addwindowsPrinterConnection "\" & txtServer & "" & UCase(txtPrinter.Text)
wshnetwork.setdefaultprinter "\" & txtServer & "" & UCase(txtPrinter.Text)

Bonne programmation,
[Gally Home Corp]