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 : Sélectionner tout - Visualiser dans une fenêtre à part
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