BeforePrint does not work

[Epap]

Hello there, I just cannot get BeforePrint to work for me. Here is the sub I use:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
.PageSetup.LeftFooter = .Range("A1").Text
End With
End Sub

My footer updates nicely with the worksheet options (BeforeDoubleCLick, Change, etc.), but not with Workbook.BeforePrint. I tried preview, Quickprint, manually changing the content of A1 cell, creating multiple worksheets - nothing can make the footer update. Thanks for any help.

[john55]

or

Please Login or Register  to view this content.

[Epap]

No success yet. Thanks anyway.