PrintOnFirstPage

rbuser

ReportBuilder 7.0

I am setting the ppFooterBand.PrintOnFirstPage := true

For one page reports, the footerband will not print. I've tried setting
visibility based on page count by:

procedure TFrmPreorderReqRep.ppReport1EndFirstPass(Sender: TObject);
begin
if ppReport1.AbsolutePageCount = 1 then
ppFooterband1.visible := true;
// ppFooterBand1.PrintOnFirstPage := True; // This didn't work either
end;

I've noticed other posts with this same problem.. is there a fix?

John

rbuser

I did seem to find an issue with it (I sent a demo to support), but did you
check that you sent 'ppFooterBand1.PrintOnLastPage := True' as well?

The other way to do it as well may be to initially set them to true and set
the respective properties to false as needed (ie PageCount > 1). (Haven't
used this issue before and I don't fully understand the issue nor how you
are implementing it).

Enjoy.
--
Ed Dressel
Team DM

rbuser

>did you check that you sent 'ppFooterBand1.PrintOnLastPage := True' as
well?

Yes. I played with changing the values of PrintOnLastPage and
PrintOnFirstPage. This made no difference. I really think it's a
bug.

set

Tried that as well....

John

rbuser

I sent a small demo to support. If you can produce a small demo as well you
should sent it to support--just in case they are 2 different issues.

--
Ed Dressel
DX Squad

Developer Express newsgroups are for peer-to-peer support.
For direct support from Developer Express, write to support@devexpress.com
Bug reports should be directed to: support@devexpress.com
Please state if you are not using the latest version of the product.

rbuser

Do you know of a workaround for this? I've tried setting visibility based
on page count and it doesn't seem to work.

John

rbuser

Send a demo to support. The issue with my demos was that I was not calling
.Reset before printing.

Enjoy.
Ed Dressel
Team DM

digitalmetaphors

I can reproduce the problem with the tech tip article for what you are
trying to do. Try setting PrintOnFirstPage to true and PrintOnLastPage to
false by default. Then code:

procedure TForm1.ppReport1EndFirstPass(Sender: TObject);
begin
ppFooterband1.PrintOnLastPage := (ppReport1.AbsolutePageCount = 1);
end;



Cheers,

Jim Bennett
Digital Metaphors

rbuser

This sample worked. Thank you very much!