Tip: Andre sprog er Google-oversat. Du kan besøge English version af dette link.
Log på
x
or
x
x
Tilmeld
x

or

Hvordan udskrives tekstdokument uden overskrift og sidefod?

Hvis der er overskrift og sidefod i dit Word-dokument, udskrives også overskriften og footeren som standard ved udskrivning af dette dokument. Men nogle gange behøver du ikke at overskriften og sidefoden skal udskrives. I dette tilfælde kan metoden i denne artikel hjælpe dig.

Udskriv Word-dokument uden overskrift og sidefod ved hjælp af VBA-kode


Udskriv Word-dokument uden overskrift og sidefod ved hjælp af VBA-kode

For at udskrive Word-filen uden overskrift og sidefod, kan følgende VBA-kode gøre dig en tjeneste, gør venligst følgende:

1. Hold nede i ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Og så klik indsatte > Moduler, kopier og indsæt under kode i det åbne blanke modul:

VBA-kode: Udskriv Word-dokument uden overskrift og sidefod:

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. Når du har indsat ovenstående kode, skal du trykke på F5 nøglen til at køre den, og en udskrivningsdialogboks kommer ud, så skal du konfigurere udskriftsindstillingerne til dit behov, se screenshot:

doc udskrivning uden overskrift footer 1

4. Og så klik OK For at starte udskrivning udskrives dokumentet uden overskrift og sidefod på en gang.

Kutools for Word

Mere end 100 Avancerede funktioner til Word 2003, 2007, 2010, 2013, 2016 og 2019

shot-kutools-700-225-KTE

Flere funktioner | Gratis download | Kun $ 39.00 til hundredvis af funktioner

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.