Hoe kunt u op elke pagina van een Excel-werkblad een andere koptekst of voettekst toepassen?
Standaard wordt bij het toevoegen van een koptekst of voettekst aan een Excel-werkblad de inhoud uniform toegepast op elke afgedrukte pagina. Dit standaardgedrag is handig voor consistentie, maar soms wilt u dat elke pagina unieke informatie weergeeft. Bijvoorbeeld bij het afdrukken van financiële rapporten, studentenlijsten of formulieren met verschillende secties: een aparte koptekst of voettekst per pagina maakt de afdruk overzichtelijker en helpt secties te onderscheiden. Excel biedt echter standaard slechts één koptekst of voettekst voor alle pagina’s, wat de flexibiliteit beperkt zonder geavanceerde methoden. We lopen nu stap voor stap door hoe u unieke kop- of voetteksten kunt instellen voor elke pagina in uw Excel-werkblad.
Verschillende kop- of voetteksten toepassen per pagina met VBA-code
Verschillende kop- of voetteksten toepassen per pagina met VBA-code
De onderstaande oplossing gebruikt een VBA-macro om specifieke kop- of voetteksten toe te wijzen aan elke afgedrukte pagina. Deze methode is handig als elk gedeelte van uw document (zoals hoofdstukken, klassen of maandelijkse rapporten) een unieke identificatie nodig heeft. Hoewel de methode enige initiële instelling vereist, kunt u na configuratie snel verschillende secties afdrukken met elk hun eigen kop- of voettekst.
1. Druk tegelijkertijd op de toetsen Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het Code-venster. Nieuw met macro’s? Modules zijn de secties waarin VBA-code wordt opgeslagen voor uitvoering. Zie de schermafbeelding ter ondersteuning:
VBA-code: Verschillende kopteksten toepassen per pagina in Excel
Sub DifferentHeaderFooter()
Dim ws As Worksheet
Dim vLeft As Variant, vRight As Variant, xRg As Variant
Set ws = ActiveSheet
On Error Resume Next
vLeft = Array("First page", "Second page", "Third page", "fourth page")
xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200")
Application.ScreenUpdating = False
For i = 0 To UBound(vLeft)
With ws.PageSetup
.PrintArea = xRg(i)
.LeftHeader = vLeft(i)
End With
ws.PrintPreview
Next i
Application.ScreenUpdating = True
ws.PageSetup.PrintArea = ""
End Sub
Opmerkingen en uitleg van parameters:
3. Druk op de toets F5 om de macro uit te voeren. De code wordt dan uitgevoerd en het Voorbeeld-venster verschijnt. Klik hier op de knop Afdrukken om het afdrukken van elke gedefinieerde sectie met de bijbehorende koptekst of voettekst te starten.
Opmerking: Als uw werkblad vier gespecificeerde afdrukgebieden bevat, moet u vier keer op de knop Afdrukken klikken — één keer per sectie — om alle pagina’s met individuele kop- of voetteksten af te drukken. Dit komt doordat de macro elke sectie sequentieel afdrukt; herhaal daarom de afdrukactie voor elke sectie.
Kort samengevat: hoewel Excel standaard geen unieke kop- of voetteksten per pagina binnen één werkblad ondersteunt, biedt het gebruik van VBA-macro’s een praktische en flexibele oplossing. Controleer altijd uw instellingen en het afdrukresultaat, en overweeg alternatieve aanpakken bij complexe scenario’s. Als u regelmatig gepersonaliseerde afdrukken nodig heeft, bespaart automatisering met VBA u aanzienlijk handwerk.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins