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 biv343 on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Printing report footers 1

Status
Not open for further replies.

Moss100

Technical User
Aug 10, 2004
586
GB
I am printing a report as my letterhead.

I have made my logo as the report header and my address as my page footer. The problem with this is that I get my address appearing on the bottom of the following pages and I just want it to appear on the front page.

Is it possible to just make the page footer print on the first page???

Thanks for any help or suggestions

Mark
 
Mark,
You should be able to create a global variable:

Public myVar as String

and set it to something like "Y" in the Report Open Event, then in the Print Event of the footer, say something like:

If myVar = "N" then Cancel = True
myVar = "N"

So you will print the footer the first time through, then every subsequent time, myVar will = "N" and printing of the page footer will be Cancelled.

Good Luck,
Tranman

"Adam was not alone in the Garden of Eden, however,...much is due to Eve, the first woman, and Satan, the first consultant." Mark Twain
 
It's a bit naughty posting the same question in multiple forums. Still, here's the answer:
Code:
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
    Me.PageFooterSection.Visible = (Me.Page = 1)
End Sub
 
I have pasted

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

into the On Print property of the Page Footer - and it just starts the debugger. Any ideas?
 
Thanks - it's all workinhg great now :)
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top