Bonsoir à tous
mon objetif
aparcu avant d'impression de la feuille chèque et l'imprimer sur une autre imprimante que celle définie par défaut
Sub imprime_Cheque()
Application.ScreenUpdating = False
Imprimante = Application.ActivePrinter 'Mémorise le choix de l'imprimante avant l'impression
With Cheque
Selection.PrintOut Copies:=1, ActivePrinter:="HPA227BB (HP Smart Tank 510 series)"
Application.ActivePrinter = Imprimante 'Retour à l'imprimante choisie avant l'impression
End With
Application.ScreenUpdating = True
Sheets("MENU").Select
End Sub