هل يمكن وضع لكل هوامش مختلفة لكل صفحة ؟

[محمد طاهر عرفه]

السؤال :

أريد أن أجعل لصفحة التقرير الأولى هوامش والصفحة ثانية هوامش تختلف عن الصفحة الأولى وخاصة الهامش العلوي0

الإجابة للأخ أبو هاجر

تغيير هوامش الصفحة يتم عن طريق خاصية اسمها Prtmip لكن هذه الخاصية يمكن القراءة منها والكتابة في وضع التصميم فقط أما في وضع التنفيذ فهي للقراءة فقط

هذا بالطبع لا يعني أنك لا تستطيع فعل ما تريد بل دائماً تستطيع العثور على حلول بديلة

مثلاً التحكم في مقطع رأس الصفحة بحيث تجعله 5 سم في الصفحة الأولى و 8 سم في الصفحة الثانية وهكذا

الكود التالي مثال لذلك

   Dim PMarginPages As String

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

    

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

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

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

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

    

    Me.Section(3).Height = 10000

وثمة طريقة أخرى وهي من خلال التحكم في رأس التقرير بحيث يكون 8 سم ورأس الصفحة بحيث يكون 5 سم واختيار خاصية عدم عرض رأس الصفحة مع رأس التقرير