There was another thread (within the last month???) where different user had the
same problem. The code would always work for me.

His solution was to add a button that would fix the header and print the job.



Dave M wrote:

When I hit 'F8' to run through the code, it looks like it runs proper, but
the footer is not updated!

"Jim Rech" wrote:

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
|




--

Dave Peterson