Print page footer only on the first page (1 Viewer)

gregch

Registered User.
Local time
Yesterday, 22:33
Joined
Sep 30, 2008
Messages
20
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

Smeghead
Local time
Yesterday, 20:33
Joined
Jan 12, 2001
Messages
32,059
Try this instead:

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

gregch

Registered User.
Local time
Yesterday, 22:33
Joined
Sep 30, 2008
Messages
20
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

Smeghead
Local time
Yesterday, 20:33
Joined
Jan 12, 2001
Messages
32,059
You may need to use the same code in the footer's PRINT event as well.
 

gregch

Registered User.
Local time
Yesterday, 22:33
Joined
Sep 30, 2008
Messages
20
Bob,

That did the trick! Thank you for your help!

Greg
 

kwmcnutt

New member
Local time
Yesterday, 22:33
Joined
Jun 29, 2010
Messages
2
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

Smeghead
Local time
Yesterday, 20:33
Joined
Jan 12, 2001
Messages
32,059
Looks right to me. I've had that problem before too and haven't figured out why it happens.
 

vbaInet

AWF VIP
Local time
Today, 04:33
Joined
Jan 22, 2010
Messages
26,374
Try it on the Print event. Also, could you attach your db for us to look at?
 

kwmcnutt

New member
Local time
Yesterday, 22:33
Joined
Jun 29, 2010
Messages
2
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

AWF VIP
Local time
Today, 04:33
Joined
Jan 22, 2010
Messages
26,374
Are you able to post a copy of a stripped-down version of your db then?
 

vbaInet

AWF VIP
Local time
Today, 04:33
Joined
Jan 22, 2010
Messages
26,374
That's why this section of the forum is dedicated to Access, not Word.
 
Last edited:

gemma-the-husky

Super Moderator
Staff member
Local time
Today, 04:33
Joined
Sep 12, 2006
Messages
15,634
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

Registered User.
Local time
Today, 04:33
Joined
Feb 26, 2007
Messages
2,177
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

AWF VIP
Local time
Today, 04:33
Joined
Jan 22, 2010
Messages
26,374
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.
 

Users who are viewing this thread

Top Bottom