Code SetPrinter ?!?

Bonjour à tous

J'ai copié ce code piqué sur internet et souhaiterai le faire évoluer pour définir l'imprimante pour imprimer mon fichier et non pas la définir en imprimante par défaut.

J'ai essayé SetPrinter sans succès

Code:

---

1 2 3 4 5 6

Dim net Set net = CreateObject("WScript.Network") net.SetDefaultPrinter "PDFCreator"Dim net Set net = CreateObject("WScript.Network") net.SetDefaultPrinter "PDFCreator"

---

Merci à vous

Bonjour,

En utilisant l'enregistreur de macro, le code pour la modification de l'imprimante

Code:

---

Application.ActivePrinter = "Microsoft XPS Document Writer sur Ne00:"

---