VCL Report Report Summary

Comments

• gordk St.Catherines On. Canada.

  July 2014 edited 10:22PM

  procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);
  begin
  if engine.freespace > reportsummary1.height then
  begin
  Engine.CurY := Engine.PageHeight -reportsummary1.height -pagefooter1.Height - 1;
  
  end;
  end;
  
  OR IF SMMARY BAND IS STRETCHING DO IT HERE
  
  procedure ReportSummary1OnAfterCalcHeight(Sender: TfrxComponent);
  
  begin
  Engine.CurY := Engine.PageHeight -reportsummary1.height -pagefooter1.Height - 1;
  end;
• tchant

  July 2014 edited 10:22PM

  tchant wrote: »

  Thanks gordk - that did the trick .
  
  If I can ask another Question - I have some vertical lines that could also span several pages eg could be 4 rows of data or 40 and span 2 or pages . Which would be the best way to ensure that the lines are drawn correctly eg from the Header to the Report Summary, across 2 to x number of pages
  
  I had set the double pass to "True" and was using the page number but I didn't have a lot of success, below is what I did , again any suggestions would be much appreciated
  
  procedure ReportDataOnBeforePrint(Sender: TfrxComponent);
  var lvLineH: Double;
  I,X : Integer;
  begin
  
  I := Page1.PageCount;
  X := <TotalPages#>;
  
  if ((I = 1) or (I = X)) then
  begin
  lvLineH := (lvLineH - reportsummary1.height) -1;
  end
  else
  begin
  lvLineH := Engine.PageHeight - Header.Height;
  end;
  
  Line2.Height := lvLineH ;
  Line13.Height := lvLineH ;
  Line14.Height := lvLineH ;
  Line15.Height := lvLineH ;
  Line16.Height := lvLineH ;
  Line17.Height := lvLineH ;
  
  end;
  
  
  Trevor Chant

  
  
  
  
  
• gordk St.Catherines On. Canada.

  July 2014 edited 10:22PM

  typically vertical lines can be created in an overlay band they will appear on every output page created.
  tip
  overlay is a bit of a misnomer it is more like an underlay
  create your report first make sure designer is set to use large height in design mode.
  add the overlay band after all other bands or it gets messy designing the page.
  draw your lines in the overlay the top of the overlay is the top of the out put page
• tchant

  July 2014 edited 10:22PM

  gordk wrote: »

  typically vertical lines can be created in an overlay band they will appear on every output page created.
  tip
  overlay is a bit of a misnomer it is more like an underlay
  create your report first make sure designer is set to use large height in design mode.
  add the overlay band after all other bands or it gets messy designing the page.
  draw your lines in the overlay the top of the overlay is the top of the out put page

  
  
  I appreciate the help - this is a little new to me and I'm learning - fast - I now have the finished product - great too FastReports !
• tchant

  July 2014 edited 10:22PM

  Hi All,
  
  gordk kindly showed some code to always position the Report summary at the bottom of a page, I have a question about this if the data stops at less than the Summary.Height and there is only one page of data , I would still like the Summary to be on the bottom of page two, What is happening is the CurY value seems to be at the top of page two - Do I need to add another page ? - The code below is not correct , any help would be appreciated
  
  if engine.freespace > reportsummary1.height then
  Engine.CurY := Engine.PageHeight - lvBottSpace - 1
  else
  Engine.CurY := (Engine.PageHeight + engine.freespace) - lvBottSpace - 1;
  
  Regards
• gordk St.Catherines On. Canada.

  July 2014 edited 10:22PM

  try using the onaftercalc height event
  procedure ReportSummary1OnAfterCalcHeight(Sender: TfrxComponent);
  begin
  if Engine.FreeSpace < ReportSummary1.Height then Engine.NewPage;
  Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height - 0.000001;
  end;