كيف يمكنني تغيير هوامش الطباعة بحيث تختلف من سجل لأخر

السلام عليكم ورحمة الله تعالى وبركاته
اريد كود لتغيير هوامش الطباعة برمجيا بحيث تختلف هوامش الطباعة من سجل لأخر
يعني اذا كانت قيمة السجل تساوي 1
تكون هوامش الصفحة 1.5 سم يمين
و1.0 سم يسار
وإذا كانت قيمة السجل تساوي 2
تكون هوامش الصفحة 1.0 سم يمين و1.5سم يسار
هذا ما اردت توضيحه
فكيف لي فعل ذلك علما بانني اعمل على نسخة الدلفي7 وQuickreport

اقتباس :

Dim PMarginPages As String

PMarginPages = "-1-2-" ' اكتب أي صفحات تريد أن تطبق عليها أمراً ما مع وضع أرقام الصفحات بين شرطتين مثل -1-



If InStr(1, PMarginPages, CStr(Me.Page)) > 0 Then

' اكتب هنا الأوامر التي تريد تنفيذها على هذه الصفحة فقط

' مثل عرض رسالة معينة

MsgBox "صفحة ذات إعداد خاص"



Me.Section(3).Height = 10000

مشكور أخي ouali على الرد كما اشكرك على هذه المعلومة
لكن مع كل اسف لم افهم ماذا تقصد بهذه المعلومة
ارجو التوضيح اكثر بكتابة الكود كامل او ارفاق مثال ان لم يكن هناك إحراج من فضلك لأنني بحاجة الى هذا الكود
وجزاكم الله عنا كل خير