Přejít k hlavnímu obsahu

Jak vytisknout dokument aplikace Word bez záhlaví a zápatí?

Autor: Xiaoyang Naposledy změněno: 2024-08-23

Pokud se v dokumentu Word nachází záhlaví a zápatí, při tisku tohoto dokumentu se ve výchozím nastavení vytiskne také záhlaví a zápatí. Někdy však nemusíte tisknout záhlaví a zápatí. V takovém případě vám může pomoci metoda v tomto článku.

Tiskněte dokument Word bez záhlaví a zápatí pomocí kódu VBA


Tiskněte dokument Word bez záhlaví a zápatí pomocí kódu VBA

Chcete-li tisknout soubor Word bez záhlaví a zápatí, následující kód VBA vám může udělat laskavost, udělejte to takto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. A pak klikněte Vložit > Modul, zkopírujte a vložte níže uvedený kód do otevřeného prázdného modulu:

Kód VBA: Tisk dokumentu Word bez záhlaví a zápatí:

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. Po vložení výše uvedeného kódu stiskněte F5 Chcete-li jej spustit, zobrazí se dialogové okno Tisk, měli byste nakonfigurovat nastavení tisku podle svých potřeb, viz screenshot:

Dialogové okno Tisk

4. A pak klikněte OK pro zahájení tisku bude dokument vytištěn bez záhlaví a zápatí najednou.

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

🤖 Funkce AI Kutools: Generovat obsah / Přepsat text / Dokument Q&A / Získejte rychlé odpovědi / Překládat dokumenty / Polský dokument (zachovat formát)...

📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...) / Dávkový převod do PDF...

Úprava obsahu: Dávkové hledání a nahrazování ve více souborech / Změnit velikost všech obrázků / Transponujte řádky a sloupce tabulky / Převést tabulku na text...

🧹 Čištění bez námahy: Smést pryč Extra prostory / Sekce přestávky / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete na Odstranit skupina...

Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Více obrázků / Objevte více v Vložit skupina...

???? Přesné výběry: Přesně Konkrétní stránky / Tabulky / Tvary / Nadpis odstavce / Vylepšete navigaci pomocí vice vybrat funkce...

Vylepšení hvězd: Přejděte na libovolné místo / Automatické vkládání opakujícího se textu / Přepínání mezi okny dokumentu / 11 Konverze Tools...

Karty Kutools a Kutools Plus na pásu karet aplikace Word
???? Chcete si tyto funkce vyzkoušet? Stáhněte si Kutools pro Word nyní! ????
 

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - 100+ nástrojů pro Word