كيفية طباعة مستند Word بدون رأس وتذييل؟ 

إذا كان هناك رأس وتذييل في مستند Word الخاص بك ، عند طباعة هذا المستند ، ستتم طباعة الرأس والتذييل أيضًا بشكل افتراضي. لكن ، في بعض الأحيان ، لا تحتاج إلى طباعة رأس الصفحة وتذييلها. في هذه الحالة ، قد تساعدك الطريقة في هذه المقالة.

اطبع مستند Word بدون رأس وتذييل باستخدام التعليمات البرمجية لـ VBA

---

اطبع مستند Word بدون رأس وتذييل باستخدام التعليمات البرمجية لـ VBA

لطباعة ملف Word بدون رأس وتذييل ، يمكن أن تقدم لك تعليمات VBA التالية خدمة ، يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. ثم انقر فوق إدراج > وحدة، انسخ والصق الكود أدناه في الوحدة الفارغة المفتوحة:

كود فبا: طباعة مستند Word بدون رأس وتذييل:

Sub PrintDocWithoutHeaderFooter()
    Call SetHeaderAndFooter(True)
    Options.PrintHiddenText = False
    Dialogs(wdDialogFilePrint).Show
    Call SetHeaderAndFooter(False)
End Sub
Sub SetHeaderAndFooter(xBool As Boolean)
    Dim xSel As Selection
    For Each s In ActiveDocument.Sections
        s.Headers(wdHeaderFooterEvenPages).Range.Font.Hidden = xBool
        s.Headers(wdHeaderFooterFirstPage).Range.Font.Hidden = xBool
        s.Headers(wdHeaderFooterPrimary).Range.Font.Hidden = xBool
        s.Footers(wdHeaderFooterEvenPages).Range.Font.Hidden = xBool
        s.Footers(wdHeaderFooterFirstPage).Range.Font.Hidden = xBool
        s.Footers(wdHeaderFooterPrimary).Range.Font.Hidden = xBool
    Next s
End Sub

3. بعد إدخال الرمز أعلاه ، يرجى الضغط F5 مفتاح لتشغيله ، وسيظهر مربع حوار طباعة ، ثم يجب عليك تكوين إعدادات الطباعة حسب حاجتك ، انظر الصورة:

4. ثم انقر فوق OK لبدء الطباعة ، ستتم طباعة المستند بدون رأس وتذييل الصفحة مرة واحدة.