Macro vba revenir a imprimante par defaut

[StrangeDove]

Config.
WIN7 - Excel 2002
****************
Bonjour,

J'ai créé une macro sous excel me permettant via un bouton de lancer l'impression de factures.
J'ai créé une autre macro me permettant via un autre bouton de lancer l'impression de la même facture en PDF et PDF CREATOR et configuré pour placer le fichier .pdf dans un dossier spécifique (sur mon bureau)

Le problème, c'est qu'après avoir lancé l'impression en PDF, si je veux imprimer "physiquement" un autre document (sous excel ou autre) l'imprimante par défaut est : PDF CREATOR et cela m'oblige à devoir remettre manuellement mon imprimante BROTHER par défaut pour pouvoir imprimer.

Quel est le code me permettant, de revenir à l'imprimante par défaut après l'impression en PDF ?

Merci pour votre aide.

 

[kjin]

Re : Macro vba revenir a imprimante par defaut

Bonjour,
Essaies

Dim impDefaut$
impDefaut = Application.ActivePrinter
Application.ActivePrinter = "Pdf ...sur..." 'à adapter
'l'impression pdf
Application.ActivePrinter = impDefaut

A+
kjin