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'hui521
Hier1323
Cette semaine15311
Ce mois59973
Total depuis 200414832950

11
visiteurs actuellement en ligne

26 mars 2023