user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

 

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'hui185
Hier2325
Cette semaine12978
Ce mois58029
Total depuis 200413616515

4
visiteurs actuellement en ligne

29 janvier 2022