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

khoshblagh

سه شنبه 02 شهریور 1395, 12:46 عصر

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

procedure TfrmGovahiAshtghal.frxReport1GetValue(const VarName: string;
var Value: Variant);
Page1:TfrxReportPage;
begin
Page1.TopMargin:=0.05;

hp1361

سه شنبه 02 شهریور 1395, 13:50 عصر

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

procedure TfrmGovahiAshtghal.frxReport1GetValue(const VarName: string;
var Value: Variant);
Page1:TfrxReportPage;
begin
Page1.TopMargin:=0.05;

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

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

https://www.fast-report.com/documentation/ProgMan/index.html?modifying_report_pages_properties.htm

موفق باشیم

khoshblagh

چهارشنبه 10 شهریور 1395, 14:13 عصر

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

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;

hp1361

چهارشنبه 10 شهریور 1395, 21:57 عصر

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

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;

موفق باشیم