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.