Désactiver beforeprint

[fred]

Bonsoir,

Dans ThisWorkbook j'ai une macro :


Private Sub Workbook_BeforePrint(Cancel As Boolean)

......
....


Dans un module j'ai une autre macro :

Sub duplicata()

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub


je souhaiterai que le Beforeprint ne s'exécute pas lorsque la macro duplicata est lancée.


Fred

 

[Robert]

Bonsoir Fred, bonsoir le forum,

Essaie comme ça :

Sub duplicata()
Application.EnableEvents = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.EnableEvents = True
End Sub

 

[ferd]

Parfait, merci beaucoup

Ferd