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

Runs fine here. Be sure events are enabled.

--
Jim
"Dave M" <(E-Mail Removed)> wrote in message
news:B24C9F20-29FC-4593-AE86-(E-Mail Removed)...
|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
|

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" <(E-Mail Removed)> wrote in message
> news:B24C9F20-29FC-4593-AE86-(E-Mail Removed)...
> |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
> |
>
>
>

Well, it updates here so the code is okay. I don't know why it doesn't
result in a changed footer for you.

--
Jim
"Dave M" <(E-Mail Removed)> wrote in message
news:63167515-18F1-4349-8D90-(E-Mail Removed)...
| 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" <(E-Mail Removed)> wrote in message
| > news:B24C9F20-29FC-4593-AE86-(E-Mail Removed)...
| > |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
| > |
| >
| >
| >

I put this in a workbook. After I changed the sheet name to Report, it
printed "Report Printed on 18 April at 9:30 am" in the lower right
hand corner of the page.

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" <(E-Mail Removed)> wrote in message
> > news:B24C9F20-29FC-4593-AE86-(E-Mail Removed)...
> > |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