Hi Ali,
We can use the other two methods in the article 208979, however, if you
refer to use method 1, according to my test, there is a gap as you
mentioned, for the pagefooter section occupying the space at that time.
However, we can use Me.PageFooterSection.Visible property to eliminate gap,
for example:
Option Explicit
Dim bfooter As Integer
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Me.PageFooterSection.Visible = False
bfooter = 0
End Sub
Private Sub GroupFooter0_Format(Cancel As Integer, FormatCount As Integer)
bfooter = 1
End Sub
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As
Integer)
If bfooter = 1 Then
Me.PageFooterSection.Visible = True
End If
End Sub
Private Sub Report_Page()
If 7 = Page Then
Me.PageFooterSection.Visible = True
End If
If 3 = Page Then
Me.PageFooterSection.Visible = False
End If
End Sub
But we have to hardcode the page number (3 and 7) for the group that
contains more than one page, it seems the first page and the last page does
not appear correctly thought we set the PageFooterSection.Visible property
in the PageFooterSection_Format event.
If you have a valid email address, I can send the sample to you.
Please feel free to reply to the threads if you have any concerns or
questions.
Sincerely,
Alick Ye, MCSD
Microsoft Online Partner Support
Get Secure! -
www.microsoft.com/security
This posting is provided "as is" with no warranties and confers no rights.
--------------------
| From: "A.M" <
[email protected]>
| References: <
[email protected]> <PTw$EZbfDHA.2356
|
| Thanks for replay,
| In attache screenshot, some invoices are more than one page
| I changed the code i mentioend in my post , so i use the cancel event
| parameter intead of visible.
| The code is something like this:
|
| Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
| bFooter = 1
| End Sub
|
| Private Sub PageFooter_Format(Cancel As Integer, FormatCount As Integer)
| Cancel = bFooter
| End Sub
|
| Private Sub GroupFooter0_Format(Cancel As Integer, FormatCount As Integer)
| bFooter = 0
| Me.Page = 0
| End Sub
|
|
|
| The problem is i have a big gap in bottom of first page ( red frame area)
of
| two page invoices.
|
| Thanks again,
| Ali
|
|
|
|
|
|
|
| | > Hi,
| >
| > Could you post a screenshot about the expected/unexpected results? Did
you
| > try the other two methods in the article 208979?
| >
| >
| >
| > Sincerely,
| >
| > Alick Ye, MCSD
| > Microsoft Online Partner Support
| >
| > Get Secure! -
www.microsoft.com/security
| > This posting is provided "as is" with no warranties and confers no
rights.
| >
| >
| >
| > --------------------
| > | From: "A.M" <
[email protected]>
| > | Subject: KB Article# 208979 ("How to Print a Group Footer at a
Specific
| > Location")
| > | Date: Wed, 17 Sep 2003 09:49:57 -0400
| > | X-Tomcat-NG: microsoft.public.access.reports
| > |
| > | Hi,
| > |
| > | Regarding MS KB Article# 208979 ("How to Print a Group Footer at a
| > Specific
| > | Location"):
| > |
| > | It recommands me use Page Footer intead of Group Footer.
| > |
| > | My problem is the report engine prints page footer on any page,
| > regardless i
| > | don't have a group footer on each page.
| > |
| > | If I put this code on OnFormat event of group footer section:
| > | Footer.Visible = True
| > | And this code in OnFormat event of Detail section
| > | Footer.Visible = False
| > |
| > | With some difficulty it works, but my page footer is 2 inches so i
have
| a
| > | big gap on bottom of every page that doesn't have group footer.
| > |
| > | Anybody have better idea how to do that or solving gap problem?
| > |
| > | Any help would be appreciated,
| > | Ali
| > |
| > |
| > |
| > |
| > |
| > |
| > |
| > |
| > |
| >
|
|
|
