Hi
Thanks for the help, it is a little better now.
But when the PageFooter is not printed, the data lines are not printed in the freed space, and a blank space remains on the bottom of the first pages.
I have tried, without success, with OnBeginPage. Any idea to use the entire sheet of paper ?
However, all this is a bit tricky, and make the report description more dependent on the code. I definitely don't want to generate the report by code, to allow users to change the layout with the designing tool.
Better would be, IMHO, an option in ReportSummary to print at the bottom, like we can find in many other report generators.
If someone is interested the code I used is :
procedure TForm.ReportBeginBand(Band: TfrBand);
var
CurrentPage, TotalPages : Variant ;
begin
if (Band.Typ = btPageFooter) and Report.FinalPass then
begin
Report.GetVariableValue('PAGE#', CurrentPage );
Report.GetVariableValue('TOTALPAGES', TotalPages );
Band.Visible := (CurrentPage = TotalPages) ;
end;
end;
Regards,
Tintinux