كيف يمكن تغيير هوامش الكريستال ريبورت وقت التنفيذ في vb.net

كيف يمكن تغيير هوامش الكريستال ريبورت وقت التنفيذ في vb.net

للعلم انا استخدم vb.net 2008

قمت بالبحث في جميع المواقع وجدت هذا الكود بس مشكلته عند تغير قيم الهوامش وقت التنفيذ لا يعمل أي تغيير 

 Dim margins As PageMargins

        margins = rep.PrintOptions.PageMargins

        margins.bottomMargin = Val(mbuttn.Text)

        margins.leftMargin = Val(mtop.Text)

        margins.rightMargin = Val(mright.Text)

        margins.topMargin = Val(mtop.Text)

        rep.PrintOptions.ApplyPageMargins(margins)