Different pg footer on pg 1 ONLY. but page x of x on all pgs

[datahelper]

- How do I prepare a report with a page footer section on the first page only!!!

- All other pages should have only data from the detail section and then page number info at the bottom (i.e. page 1 of 10; page 2 of 10; page 3 of 10...)

This is for a critical job assignment and I need a quick response... PLEASE!

datahelper jcade4@yahoo.com

 

[VogonPoet]

The easiest way I can think of is to place tags in each of the controls in the footer. For the controls that appear on the first page, some thing like "First" and something else for the controls on the other pages.

Then include something like this in the format event of the page footer section. This will hide whichever controls you don't want to display.

Private Sub PageFooter_Format(Cancel As Integer, FormatCount As Integer)
dim blnFirstPage as boolean
dim ctl as control

if me.page>1 then
blnFirstPage=False
else
blnFirstPage=True
end if

for each ctl in me.Section(acPageFooter).controls
If ctl.tag="First" then
blFirstPage=blnFirstPage
Else
blnFirstPage=not blnFirstPage
End If

ctl.visible=blnFirstPage

next

set ctl = nothing
End Sub

I hope this helps.

Michael
michaelhodes@managedcare.som