First Page Footer Help

rbuser

I've placed three items on the footer:

[SysVar:Date] [Copyright Notification] [SysVar:PageNo]

Is there a way to keep the Footer.PrintOnFirstPage := True

And on *Page* *1* *only*

Set [SysVar:Date].Visible := False;
Set [SysVar:PageNo].Visible := False;



--
Michael Riley
GySgt USMC (Ret)
www.zilchworks.com

rbuser

Michael Riley wrote:



If ppReport1.AbsolutePageNo=1 then begin
Set [SysVar:Date].Visible := False;
Set [SysVar:PageNo].Visible := False;
end
else
begin
Set [SysVar:Date].Visible := true;
Set [SysVar:PageNo].Visible := true;
end;

If you have groups that reset the page count and you want these hidden
on the 'reset' page 1 then use PageNo instead of AbsolutePageNo.

Cheers,
EdB

rbuser

Ed Blanchard wrote:


Thanks Ed.

Where does this code go? What event to I put it in?

--
Michael Riley
Marine Corps Gunnery Sergeant (Retired)
www.zilchworks.com

rbuser

Michael Riley wrote:


You can stick it in the Footer OnBeforePrint, or on the report
OnStartPage.

rbuser

Ed Blanchard wrote:


Ed,

I put it in the OnStartPage and it works like a champ.

Thanks again!

--
Michael Riley
Marine Corps Gunnery Sergeant (Retired)
www.zilchworks.com

rbuser

Ed Blanchard wrote:


Ed,

I just figured out how to invoke the FooterBand OnBeforePrint.

I moved my code from the Report OnStartPage to the FooterBand OnBeforePrint and it works like a champ. This is a much more logical place.

RB is so much easier when you have two monitors. One for Delphi and one for the RB Report Designer.

The more I learn about RB the more I like it.

--
Michael Riley
Marine Corps Gunnery Sergeant (Retired)
www.zilchworks.com

rbuser

Michael Riley wrote:


I've been using it since version 7.x (although, with large periods of
time where I don't touch code).

I did some really weird stuff (calls to "deep in the bowels of the
code") with it, and was afraid to upgrade.

When I finally took the plunge (RB14, now 15), EVERYTHING still worked.

I'm always amazed when that happens - I can't say enough good things
about the product or the people that work there.

EdB