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.