تنظیم TopMargin صفحه در فست ریپورت بوسیله کد

با سلام خدمت دوستان
میخواهم با کد نویسی مارجین صفحه را با کد زیر عوض کنم. برنامه اجرا میشود ولی تغییر مارجین عمل نمی کند.چرا ؟

procedure TfrmGovahiAshtghal.frxReport1GetValue(const VarName: string;

  var Value: Variant);

 Page1:TfrxReportPage;

begin

Page1.TopMargin:=0.05;

نقل قول:

---

نوشته شده توسط khoshblagh

با سلام خدمت دوستان
میخواهم با کد نویسی مارجین صفحه را با کد زیر عوض کنم. برنامه اجرا میشود ولی تغییر مارجین عمل نمی کند.چرا ؟

procedure TfrmGovahiAshtghal.frxReport1GetValue(const VarName: string;

  var Value: Variant);

 Page1:TfrxReportPage;

begin

Page1.TopMargin:=0.05;

---

سلام
هر گزارش میتونه دارای بیش از 1 Page باشه. لذا شما باید مشخص کنید که کدام Page را میخواهید تنظیماتش رو اعمال کنید.

لینک زیر کامل توضیح داده شده :

https://www.fast-report.com/document...properties.htm

موفق باشیم

با سلام به خط آخر خطای عدم معرفی میگیرد.

procedure TfrmSabtZamin.frxReport1GetValue(const VarName: string;

  var Value: Variant);

var

 Page: TfrxReportPage;

begin

 Page := TfrxReportPage(frxReport1.Pages[2]);

 Page.PaperSize := DMPAPER_A2;

 Page.Orientation := poLandscape;

نقل قول:

---

نوشته شده توسط khoshblagh

با سلام به خط آخر خطای عدم معرفی میگیرد.

procedure TfrmSabtZamin.frxReport1GetValue(const VarName: string;

  var Value: Variant);

var

 Page: TfrxReportPage;

begin

 Page := TfrxReportPage(frxReport1.Pages[2]);

 Page.PaperSize := DMPAPER_A2;

 Page.Orientation := poLandscape;

---

سلام

اینطور بنویسید

page.Orientation:=TPrinterOrientation.poLandscape;

موفق باشیم