כיצד להדפיס מסמך Word ללא כותרת עליונה ותחתונה?
אם יש כותרת עליונה ותחתונה במסמך ה-Word שלך, בעת הדפסת המסמך, הכותרות העליונות והתחתונות יודפסו כברירת מחדל. אך לפעמים, אין צורך להדפיס את הכותרות האלו. במקרה זה, השיטה במאמר זה עשויה לעזור לך.
הדפסת מסמך Word ללא כותרת עליונה ותחתונה באמצעות קוד VBA
הדפסת מסמך Word ללא כותרת עליונה ותחתונה באמצעות קוד VBA
כדי להדפיס את קובץ ה-Word ללא כותרת עליונה ותחתונה, הקוד הבא של VBA יכול לעזור לך, אנא עשה כך:
1. החזק את מקשי ALT + F11 כדי לפתוח את חלון Microsoft Visual Basic for Applications.
2. לאחר מכן, לחץ על הוסף > מודול, העתק והדבק את הקוד הבא לתוך המודול הריק שנפתח:
קוד VBA: הדפסת מסמך 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. ולאחר מכן, לחץ על אישור כדי להתחיל בהדפסה, המסמך יודפס מיד ללא הכותרת העליונה והתחתונה.
כלי הפרודוקטיביות הטובים ביותר למשרד
Kutools עבור Word – שדרגו את חוויית העבודה שלכם ב-Word עם יותר מ-100 תכונות יוצאות דופן!
🤖 תכונות AI של Kutools: עוזר AI / עוזר בזמן אמת / פוליש סופר (שומר על פורמט) / תרגום סופר (שומר על פורמט) / הסתרת AI / בדיקת AI...
📘 שליטה במסמכים: פיצול עמודים / מיזוג מסמכים / ייצוא בחירה בפורמטים שונים (PDF/TXT/DOC/HTML...) / המרה בקבוצות ל-PDF...
✏ עריכת תוכן: חיפוש והחלפה בקבוצות במספר קבצים / שנה גודל לכל התמונות / הפוך טבלה בין שורות לעמודות / המרת טבלה לטקסט...
🧹 ניקוי בקלות: הסר רווחים מיותרים / מעברי קטע / תיבות טקסט / קישורים / לעוד כלי הסרה, עברו לקבוצת הסרה...
➕ הוספות יצירתיות: הוסף מפרידי אלפים / תיבות סימון / כפתורי רדיו / קוד QR / ברקוד / מספר תמונות / גלו עוד בקבוצת הוספה...
🔍 בחירה מדויקת: איתור עמודים מסוימים / טבלאות / צורות / פסקאות כותרת / שפרו ניווט עם עוד אפשרויות בחירה...
⭐ שדרוגים בולטים: מעבר לכל מיקום / הוספה אוטומטית של טקסט חוזר / מעבר בין חלונות מסמך /11 כלי המרה...
כלי הפרודוקטיביות הטובים ביותר למשרד
Kutools עבור Word – יותר מ-100 כלים ל-Word
- 🤖 תכונות AI של Kutools: עוזר AI / עוזר בזמן אמת / פוליש סופר / תרגום סופר / הסתרת AI / בדיקת AI
- 📘 שליטה במסמכים: פיצול עמודים / מיזוג מסמכים / המרה בקבוצות ל-PDF
- ✏ עריכת תוכן: חיפוש והחלפה בקבוצות / שנה גודל לכל התמונות
- 🧹 ניקוי בקלות: הסר רווחים מיותרים / הסר מעברי קטע
- ➕ הוספות יצירתיות: הוסף מפרידי אלפים / הוסף תיבות סימון / צור קודי QR