呵呵搞出来了，先做好，导出来
procedure TForm1.Button1Click(Sender: TObject);
var rect:trect;
begin
frReport1.LoadFromFile('1.frf');
// frReport1.Pages[0].pgSize
rect:=frReport1.Pages[0].pgMargins ;
edit1.Text := inttostr(rect.Left );
edit2.Text := inttostr(rect.top );
edit3.Text := inttostr(rect.right );
edit4.Text := inttostr(rect.Bottom );
edit5.Text := inttostr( frReport1.Pages[0].pgSize );
end;
