Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Move printing to bottom of page not in page footer 1

Status
Not open for further replies.

Roncayenne

Programmer
Sep 15, 2003
43
US
I have a report that is printing bills and at the end of end bill I have a section that is the 'cut and return bottom portion with your payment' with the info from the bill. I current have it in a group footer rather than a page footer so as not to print on every page. If all bills were one page long it would not be a problem and go in the page footer, but some bills run more than one page and do not want it printing on page one of a two page bill. ONly on the second page.
Putting in the group footer is working except it is being printed right after the detail and that could be in the middle of the page.
Is there a way in the group footer so as to print at the very bottom of the page each time.

thanks for the help in advance..
Ron
 
Could you put the data in the page footer, but hide it when there is no Group Footer? Very roughly:
Code:
Option Compare Database
Option Explicit
Dim blnGF
Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer)
    blnGF = True
End Sub

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
If blnGF Then
    Me.txtCutHere.Visible = True
    blnGF = False
Else
    Me.txtCutHere.Visible = False
End If
End Sub
 
thanks Remou for the information. I will give this a try.
Thanks also for the quick response!

Ron
 
Remou,
I finally tried what you said and it works partly and I have tried other things and could not figure it out. This is what is happening.
I did insert the code above.
On the bills with ending on one page the 'Please remit... shows up at the bottom. great! On the bills that have multiple pages,say 3 pages,ending on the 3rd page, on the 1st and 2nd page the footer is not visible which is good. On the last page, it is still not visible. This is the page it should be visible on.
Can you give me any advice to try? Thanks again for the help....

Ron
 
Just in case anyone else has this problem. I could not figure out how to print the Bottom portion of the bill on the last page of the bill because how do you know when is the last page until the bill comes up.
So I put the 'Please Remit' portion on the first page of the bill. This will work better I believe.
Thanks to Remou for the idea!!
HEre is the code:

Private Sub GroupFooter2_Format(Cancel As Integer, FormatCount As Integer)
Page = 0
End Sub


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

End Sub

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
If Page = 1 Then
PageFooterSection.Visible = True
Else
PageFooterSection.Visible = False
End If
End Sub








Private Sub GroupFooter2_Format(Cancel As Integer, FormatCount As Integer)
Page = 0
End Sub


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

End Sub

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
If Page = 1 Then
PageFooterSection.Visible = True
Else
PageFooterSection.Visible = False
End If
End Sub
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top