Runs fine here. Be sure events are enabled.

--
Jim
"Dave M" wrote in message
...
|I can't get this code to work proper in the event. When I run the code by
| itself, it works no problem, but when it is in the event, it runs through
the
| code but does not update the footer, the code is in 'ThisWorkbook':
|
| Sub Workbook_Beforeprint(Cancel As Boolean)
| Dim foot As String
| foot = "Report Printed on " & Format(Now, "DD MMMM YYYY") & " at " &
| Format(Now, "H:MM am/pm")
| Worksheets("Report").PageSetup.RightFooter = foot
|
| End Sub
|