Impression en USB

[Christian]

Comment faire quand on possède deux imprimantes, une parallèle par défaut et une USB. Je souhaite que l'imprimante USB se sélectionne automatiquement a l'ouverture d'un fichier quel que soit le port USB connecté puis qu'en sortie l'imprimante par défaut se remette normalement.
Comment puis je procéder et quelle syntaxe ? Et dans quelle partie WorkBook Feuil1 ?
Merci de m'aider si vous le pouvez car je cherche depuis un moment.
Cordialement

 

[dg62]

BONJOUR Christian

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ActivePrinter = 'imprimante1'
End Sub

Private Sub Workbook_Open()
Application.ActivePrinter = 'imprimante2'
End Sub