Jak tisknout textový dokument bez záhlaví a zápatí?

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:

tisk dokumentů bez zápatí záhlaví 1