Πώς να εκτυπώσετε έγγραφο κειμένου χωρίς κεφαλίδα και υποσέλιδο;
Εάν υπάρχουν κεφαλίδες και υποσέλιδο στο έγγραφο του Word, κατά την εκτύπωση αυτού του εγγράφου, η κεφαλίδα και το υποσέλιδο θα εκτυπωθούν επίσης από προεπιλογή. Όμως, μερικές φορές, δεν χρειάζεται να εκτυπωθεί η κεφαλίδα και το υποσέλιδο. Σε αυτήν την περίπτωση, η μέθοδος σε αυτό το άρθρο μπορεί να σας βοηθήσει.
Εκτυπώστε το έγγραφο του Word χωρίς κεφαλίδα και υποσέλιδο χρησιμοποιώντας τον κωδικό VBA
Εκτυπώστε το έγγραφο του Word χωρίς κεφαλίδα και υποσέλιδο χρησιμοποιώντας τον κωδικό VBA
Για να εκτυπώσετε το αρχείο Word χωρίς κεφαλίδα και υποσέλιδο, ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει, κάντε το εξής:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
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. Και μετά, κάντε κλικ στο OK για να ξεκινήσει η εκτύπωση, το έγγραφο θα εκτυπωθεί χωρίς την κεφαλίδα και το υποσέλιδο ταυτόχρονα.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!
🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου / Ξαναγράψτε το κείμενο / Συνοψίστε τα έγγραφα / Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word
📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...) / Μαζική μετατροπή σε PDF / Εξαγωγή σελίδων ως εικόνες / Εκτύπωση πολλών αρχείων ταυτόχρονα...
✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία / Αλλαγή μεγέθους όλων των εικόνων / Μεταφορά σειρών και στηλών πίνακα / Μετατροπή πίνακα σε κείμενο...
🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι / Διακοπές ενότητας / Όλες οι κεφαλίδες / Κουτιά κειμένου / Υπερ-συνδέσεις / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...
➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές / Πλαίσια ελέγχου / Κουμπιά ραδιοφώνου / QR Code / barcode / Διαγώνιος γραμμικός πίνακας / Λεζάντα εξίσωσης / Λεζάντα εικόνας / Λεζάντα πίνακα / Πολλαπλές εικόνες / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...
🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες / πίνακες / σχήματα / επικεφαλίδες παραγράφους / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...
⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία / αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου / εναλλαγή μεταξύ των παραθύρων εγγράφων / 11 Εργαλεία μετατροπής...
