Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

 

Dans le document en question, faire une macro automatique qui se déclenchera à l'ouverture du document :

Sub AutoOpen()
Application.ActivePrinter = "HP Deskjet local on LPT1:"
end Sub

et une autre qui se déclenchera à la fermeture du document pour récupérer l'imprimante habituelle :

Sub AutoClose()
Application.ActivePrinter = "Ma laser local on LPT2:"
End Sub

Pour avoir le nom exact de l'imprimant par défaut, vous pouvez ajouter temporairement cette ligne :

MsgBox "Imprimante par défaut $" & ActivePrinter & "$"

Le rôle des $ est de mettre en évidence un éventuel espace perturbateur.

Statistiques

Aujourd'hui205
Hier1383
Cette semaine205
Ce mois33468
Total depuis 200410768876

5
visiteurs actuellement en ligne