problem setting page margin
greetings
I have a problem setting page margin in runtime, I have next code:
[ procedure TRMReport.SetPropPage(frPage: TfrPage);
begin
with frPage do
begin
Prop := ConfigPage.TypePage;
Prop := ConfigPage.PageWidth;
Prop := ConfigPage.PageHeight;
Prop := ConfigPage.Rightmargin;
Prop := ConfigPage.Leftmargin;
Prop := ConfigPage.Topmargin;
Prop := ConfigPage.BottomMargin;
Prop := ConfigPage.Orientation;
UseMargins := True;
end; ]
then I Create Report dynamically, but no work fine.
When I see the result of frPage.rightmargin it is negative.
Any advice, I thank you
Diego
I have a problem setting page margin in runtime, I have next code:
[ procedure TRMReport.SetPropPage(frPage: TfrPage);
begin
with frPage do
begin
Prop := ConfigPage.TypePage;
Prop := ConfigPage.PageWidth;
Prop := ConfigPage.PageHeight;
Prop := ConfigPage.Rightmargin;
Prop := ConfigPage.Leftmargin;
Prop := ConfigPage.Topmargin;
Prop := ConfigPage.BottomMargin;
Prop := ConfigPage.Orientation;
UseMargins := True;
end; ]
then I Create Report dynamically, but no work fine.
When I see the result of frPage.rightmargin it is negative.
Any advice, I thank you
Diego