Before Print Event

[Dave M]

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

 

[Jim Rech]

Runs fine here. Be sure events are enabled.

--
Jim
|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 M]

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

 

[Jim Rech]

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
| 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
| > | > |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
| > |
| >
| >
| >

 

[dan dungan]

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.

 

[Dave Peterson]

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.