Discussion :

[aleximan]

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

[jfontaine]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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