Actual position.

rbuser

Hi all,
there is a method or property to get the actual position in the page in
report units ?

For example in the detailafterprint event, can i check what is the position
in the page ?

Thanks.

nicocizik

Hi Massimo,

If you would like to check the position of a component inside the detail
band, check out your previous post. I answered it with an example of how to
do this using the draw command events.

--

rbuser

Massimo,

Try this (works in RB 6.03)...

add after the 'implementation' keyword:

uses
ppTypes,
ppUtils,
ppDrwCmd,
ppPrintr;

procedure TForm1.ppDetailBand1AfterPrint(Sender: TObject);
var
lPosition : Single;
begin
lPosition := ppFromMMThousandths(ppReport1.DetailBand.CurrentPosition,
utInches, pprtVertical, ppPrinter);
ShowMessage('Detail Band ends at ' + FloatToStr(lPosition));
end;

This will show you the position (bottom-most) where the detail band ended in
Inches. ppReport1.DetailBand.CurrentPosition gives you the position in
MMThousandths.

Regards,
Chuck Van Acker
Alogent Corp.