Private Sub Workbook_Activate()
Application.ActivePrinter = 'Lexmark...' 'ICI, l'expression exacte qui représente l'imprimante laser
End Sub
Private Sub Workbook_Deactivate()
Application.ActivePrinter = 'hp...' 'ICI, l'expression exacte qui représente l'imprimante HP
End Sub