Start Page

rbuser

Hi

How I set a star page? In my application, I have a Edit (Star Page). When I
set 6 (six), my report must be show the first page = 6, second page=7, etc,
etc


I try to create a Variable, and in gettext event I set:

procedure TlibRelatorioDBForm.NumeroPaginaCalcGetText(Sender: TObject;
var Text: String);
var
liPage : Integer;
begin
inherited;
liPage := Relatorio.PageNo;
Text := IntToStr(liPage + FPaginaInicial - 1);
end;

but it don?t work fine

PS. Sorry my english, hehe. I?m from brazil.

Maikel

nicocizik

Hi Maikel,

Try placing a TppVariable inside your report and using it to keep track of
the page number. You will want to use the OnCalc event to alter the value
and be sure to set the timing to calculate on Page Start (timing dialog by
right clicking the variable).

procedure Form.VariableOnCalc(Sender: TObject; Value: variant);
begin
Value := Report.PageNo + 5;
end;

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com

rbuser

Hi, I do it. But, on the first page, the variable on screeen shows empty.
when I print on Printer, its show rigth..

I create a property on ppengine and change TppEngine.GetPageNo and work fine

Thanks