RB and different print sizes

rbuser

Hi,

Is there a way to get some kind of "auto-adjust" when people decide
to print on A4 instead of Letter format? ...

--

With regards,

Martijn Tonies
Database Workbench - the developer tool for InterBase & Firebird
Upscene Productions
http://www.upscene.com

nicocizik

Hi Martijn,

You can perform a Report Object Loop in order to access every object in the
report, check that it falls within the given margins for the paper selected
and move them accordingly. Below is a small example of how a Report Object
Loop might be implemented.

----------------------------------------------
Tech Tip: Loop Thru All Objects in a Report
---------------------------------------------

A ReportBuilder report is composed of a set
of components. The basic structure is

Reports.Bands[].Objects[]

The bands and objects within the report can
be accessed directly by object name or
via the Bands and Objects array properties.

Below is an example of using the Bands and
Objects array properties to change the font for
all objects on a report.


uses
ppClass;


procedure AssignFontToReport(aFont: TFont; aReport: TppCustomReport);
var
liBand: Integer;
liObject: Integer;
lObject: TppComponent;

begin

for liBand := 0 to aReport.BandCount-1 do

for liObject := 0 to aReport.Bands[liBand].ObjectCount-1 do
begin
lObject := aReport.Bands[liBand].Objects[liObject];

if lObject.HasFont then
lObject.Font := aFont;

end;

end;


--