Print page footer only on the first page

[gregch]

I am working on a report that is going to be emailed and transferred electronically to other people. The user has requested that the first page of the report must have our company letterhead on the page. I created the report and placed the image of the top of our letterhead in the report header. The image of the bottom of the letterhead has been placed in the page footer. The following code has been placed in the on format of the page footer so that only the first page will show the bottom of the letterhead. Me.Section(4).Visible = Me.[Page] = 1 The print preview shows this correctly, however when I export this to .pdf or print it, the page footer does not show up when printing multiple pages. Has anyone run into this situation? Any help would be greatly appreciated!

 

[boblarson]

Try this instead:

Me.PageFooterSection.Visible = (Me.[Page] = 1)

 

[gregch]

Bob,

Thanks for the reply! I tried your suggestion and camp up with the same result when I tried to print and export. When I view the report in print preview, the page footer is there. Any other ideas would be greatly appreciated!

Greg

 

[boblarson]

You may need to use the same code in the footer's PRINT event as well.

 

[gregch]

Bob,

That did the trick! Thank you for your help!

Greg

 

[kwmcnutt]

I can't seem to figure out what I'm doing wrong here. I'm not getting any footer showing up at all.


Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
Me.PageFooterSection.Visible = (Me.[Page] = 1)
End Sub


Anything else I might be doing wrong?

 

[boblarson]

Looks right to me. I've had that problem before too and haven't figured out why it happens.

 

[vbaInet]

Try it on the Print event. Also, could you attach your db for us to look at?

 

[kwmcnutt]

Oh well, its not a huge problem I guess!

I've tried in the Print event as well. Tried in both, tried each separately, same effect. Even tried it with an If...Then just in case.

 

[vbaInet]

Are you able to post a copy of a stripped-down version of your db then?

 

[Aiken004]

This is definitely not helpful for Word 2007.
​

 

[vbaInet]

That's why this section of the forum is dedicated to Access, not Word.

 

[gemma-the-husky]

I can't seem to figure out what I'm doing wrong here. I'm not getting any footer showing up at all.


Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
Me.PageFooterSection.Visible = (Me.[Page] = 1)
End Sub


Anything else I might be doing wrong?

try the print event, as already pointed out

silly question, but are you sure you have something IN the section. Maybe its the wrong section!

 

[Simon_MT]

This problem has really annoyed me off too. I have never been able to hide the entire Page Footer on the First Page. Why use the Page Footer because it is at the bottom of the page. My solution was to make all the controls invisible.

Invoice Header set Page Footer controls to Invisible.
Invoice Footer set Page Footer controls to Visible.

This works but what a faff! For goodness sake there must be a better way!

Simon

 

[vbaInet]

Put the code in the Print event of the HEADER section and it should work. As long as the Header is visible it will work.