Page Footer

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi all

In code can you prevent the Page footer in a report printing for Page two,
ie only print page footer at the bottom of page 1.

Thanks
Sue
 
Hi all

In code can you prevent the Page footer in a report printing for Page two,
ie only print page footer at the bottom of page 1.

Thanks
Sue
Click to expand...

Code the Page Footer format event:
Me.Section(4).Visible = Me.[Page] = 1
 
Thanks very much for this! Is there a way to print it on all odd pages ie
1,3,5,7 etc. I have a 2 page report which prints for over two hundred dealers
and I only want the header on page 1 of each dealer.

Thanks in advance for any help.
Sue


fredg said:
Hi all

In code can you prevent the Page footer in a report printing for Page two,
ie only print page footer at the bottom of page 1.

Thanks
Sue
Click to expand...

Code the Page Footer format event:
Me.Section(4).Visible = Me.[Page] = 1
Click to expand...
 
Hi, idea is the same:

Me.Section(4).Visible = (Me.[Page] mod 2 = 1)

--
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com



hughess7 said:
Thanks very much for this! Is there a way to print it on all odd pages ie
1,3,5,7 etc. I have a 2 page report which prints for over two hundred
dealers
and I only want the header on page 1 of each dealer.

Thanks in advance for any help.
Sue


fredg said:
Hi all

In code can you prevent the Page footer in a report printing for Page
two,
ie only print page footer at the bottom of page 1.

Thanks
Sue
Click to expand...

Code the Page Footer format event:
Me.Section(4).Visible = Me.[Page] = 1
Click to expand...
Click to expand...
 
Hi Alex

Tried that but it didn't appear to make any difference? Footer only appears
on page 1 of report and not on Page 3, 5, 7, etc.

Sue

Alex Dybenko said:
Hi, idea is the same:

Me.Section(4).Visible = (Me.[Page] mod 2 = 1)

--
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com



hughess7 said:
Thanks very much for this! Is there a way to print it on all odd pages ie
1,3,5,7 etc. I have a 2 page report which prints for over two hundred
dealers
and I only want the header on page 1 of each dealer.

Thanks in advance for any help.
Sue


fredg said:
On Fri, 21 Oct 2005 09:16:04 -0700, hughess7 wrote:

Hi all

In code can you prevent the Page footer in a report printing for Page
two,
ie only print page footer at the bottom of page 1.

Thanks
Sue

Code the Page Footer format event:
Me.Section(4).Visible = Me.[Page] = 1
Click to expand...
Click to expand...
Click to expand...
 
That is because it is not getting turned back on:
Me.Section(4).Visible = Iif((Me.[Page] mod 2 = 1), True, False)


hughess7 said:
Hi Alex

Tried that but it didn't appear to make any difference? Footer only appears
on page 1 of report and not on Page 3, 5, 7, etc.

Sue

Alex Dybenko said:
Hi, idea is the same:

Me.Section(4).Visible = (Me.[Page] mod 2 = 1)

--
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com



hughess7 said:
Thanks very much for this! Is there a way to print it on all odd pages ie
1,3,5,7 etc. I have a 2 page report which prints for over two hundred
dealers
and I only want the header on page 1 of each dealer.

Thanks in advance for any help.
Sue


:

On Fri, 21 Oct 2005 09:16:04 -0700, hughess7 wrote:

Hi all

In code can you prevent the Page footer in a report printing for Page
two,
ie only print page footer at the bottom of page 1.

Thanks
Sue

Code the Page Footer format event:
Me.Section(4).Visible = Me.[Page] = 1
Click to expand...
Click to expand...
Click to expand...
 
Actually - this is a same

perhaps you stil have Me.Section(4).Visible = (Me.[Page] = 1) there?

--
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com


Klatuu said:
That is because it is not getting turned back on:
Me.Section(4).Visible = Iif((Me.[Page] mod 2 = 1), True, False)


hughess7 said:
Hi Alex

Tried that but it didn't appear to make any difference? Footer only
appears
on page 1 of report and not on Page 3, 5, 7, etc.

Sue

Alex Dybenko said:
Hi, idea is the same:

Me.Section(4).Visible = (Me.[Page] mod 2 = 1)

--
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com



Thanks very much for this! Is there a way to print it on all odd
pages ie
1,3,5,7 etc. I have a 2 page report which prints for over two hundred
dealers
and I only want the header on page 1 of each dealer.

Thanks in advance for any help.
Sue


:

On Fri, 21 Oct 2005 09:16:04 -0700, hughess7 wrote:

Hi all

In code can you prevent the Page footer in a report printing for
Page
two,
ie only print page footer at the bottom of page 1.

Thanks
Sue

Code the Page Footer format event:
Me.Section(4).Visible = Me.[Page] = 1
Click to expand...
Click to expand...
Click to expand...
 
No that did not work either. I have the line still but it is commented out.
Page footer still only prints on Page 1 though. See code below, should be in
Format event of PageFooter as below?

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As
Integer)

' Me.Section(4).Visible = Me.[Page] = 1 (Print footer on Page one only)

'Print on all odd Pages
Me.Section(4).Visible = (Me.[Page] Mod 2 = 1)

End Sub
--
Thanks
Sue


Alex Dybenko said:
Actually - this is a same

perhaps you stil have Me.Section(4).Visible = (Me.[Page] = 1) there?

--
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com


Klatuu said:
That is because it is not getting turned back on:
Me.Section(4).Visible = Iif((Me.[Page] mod 2 = 1), True, False)


hughess7 said:
Hi Alex

Tried that but it didn't appear to make any difference? Footer only
appears
on page 1 of report and not on Page 3, 5, 7, etc.

Sue

:

Hi, idea is the same:

Me.Section(4).Visible = (Me.[Page] mod 2 = 1)

--
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com



Thanks very much for this! Is there a way to print it on all odd
pages ie
1,3,5,7 etc. I have a 2 page report which prints for over two hundred
dealers
and I only want the header on page 1 of each dealer.

Thanks in advance for any help.
Sue


:

On Fri, 21 Oct 2005 09:16:04 -0700, hughess7 wrote:

Hi all

In code can you prevent the Page footer in a report printing for
Page
two,
ie only print page footer at the bottom of page 1.

Thanks
Sue

Code the Page Footer format event:
Me.Section(4).Visible = Me.[Page] = 1
Click to expand...
Click to expand...
Click to expand...
 
No that did not work either. I have the line still but it is commented out.
Page footer still only prints on Page 1 though. See code below, should be in
Format event of PageFooter as below?

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As
Integer)

' Me.Section(4).Visible = Me.[Page] = 1 (Print footer on Page one only)

'Print on all odd Pages
Me.Section(4).Visible = (Me.[Page] Mod 2 = 1)

End Sub
Click to expand...

Place the code in the ** Page Header Format event ** instead of the
Pager Footer Format event.

Me.Section(4).Visible = Me.[Page] Mod 2 = 1
 
Excellent thanks that works!!! :-) Don't quite understand it but it works...

Just one more thing, page 2 also needs a footer. As I don't think you can
have two different footers I have created the text for footer 2 at the bottom
of page two's text (which is in the group footer). It works except the
obvious - it is slightly too high up the page and not in alignment with the
footer on page 1. I don't think there is a way round this though is there?

Cheers
Sue

fredg said:
No that did not work either. I have the line still but it is commented out.
Page footer still only prints on Page 1 though. See code below, should be in
Format event of PageFooter as below?

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As
Integer)

' Me.Section(4).Visible = Me.[Page] = 1 (Print footer on Page one only)

'Print on all odd Pages
Me.Section(4).Visible = (Me.[Page] Mod 2 = 1)

End Sub
Click to expand...

Place the code in the ** Page Header Format event ** instead of the
Pager Footer Format event.

Me.Section(4).Visible = Me.[Page] Mod 2 = 1
Click to expand...
 
Excellent thanks that works!!! :-) Don't quite understand it but it works...

Just one more thing, page 2 also needs a footer. As I don't think you can
have two different footers I have created the text for footer 2 at the bottom
of page two's text (which is in the group footer). It works except the
obvious - it is slightly too high up the page and not in alignment with the
footer on page 1. I don't think there is a way round this though is there?

Cheers
Sue

fredg said:
No that did not work either. I have the line still but it is commented out.
Page footer still only prints on Page 1 though. See code below, should be in
Format event of PageFooter as below?

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As
Integer)

' oter on Page one only)
Me.Section(4).Visible = Me.[Page] = 1 (Print fo
'Print on all odd Pages
Me.Section(4).Visible = (Me.[Page] Mod 2 = 1)

End Sub
Click to expand...

Place the code in the ** Page Header Format event ** instead of the
Pager Footer Format event.

Me.Section(4).Visible = Me.[Page] Mod 2 = 1
Click to expand...
Click to expand...

Just add the controls you wish to show just on page 2 to the regular
footer.
Set each of those control's Tag property to "Change" (without the
quotes).

Then code the Page Header format event:
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As
Integer)
Me.Section(4).Visible = (Me.[Page] Mod 2 = 1)
If Me.[Page] = 2 Then
Dim C As Control
For Each C In Me.Section(4).Controls
C.Visible = C.Tag = "Change"
Next
Me.Section(4).Visible = True
Else
For Each C In Me.Section(4).Controls
C.Visible = C.Tag <> "Change"
Next
End If
End Sub
 
Perfect thanks very much!!

Sue

fredg said:
Excellent thanks that works!!! :-) Don't quite understand it but it works...

Just one more thing, page 2 also needs a footer. As I don't think you can
have two different footers I have created the text for footer 2 at the bottom
of page two's text (which is in the group footer). It works except the
obvious - it is slightly too high up the page and not in alignment with the
footer on page 1. I don't think there is a way round this though is there?

Cheers
Sue

fredg said:
On Mon, 24 Oct 2005 06:28:03 -0700, hughess7 wrote:

No that did not work either. I have the line still but it is commented out.
Page footer still only prints on Page 1 though. See code below, should be in
Format event of PageFooter as below?

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As
Integer)

' oter on Page one only)
Me.Section(4).Visible = Me.[Page] = 1 (Print fo
'Print on all odd Pages
Me.Section(4).Visible = (Me.[Page] Mod 2 = 1)

End Sub

Place the code in the ** Page Header Format event ** instead of the
Pager Footer Format event.

Me.Section(4).Visible = Me.[Page] Mod 2 = 1
Click to expand...
Click to expand...

Just add the controls you wish to show just on page 2 to the regular
footer.
Set each of those control's Tag property to "Change" (without the
quotes).

Then code the Page Header format event:
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As
Integer)
Me.Section(4).Visible = (Me.[Page] Mod 2 = 1)
If Me.[Page] = 2 Then
Dim C As Control
For Each C In Me.Section(4).Controls
C.Visible = C.Tag = "Change"
Next
Me.Section(4).Visible = True
Else
For Each C In Me.Section(4).Controls
C.Visible = C.Tag <> "Change"
Next
End If
End Sub
Click to expand...
 
Back
Top