Hoe voegt u tijdens het afdrukken een achtergrondkleur toe aan kopteksten of voetteksten in een Excel-werkblad?
Wanneer u in Excel werkt, versterken kopteksten en voetteksten de professionele uitstraling van uw afgedrukte documenten door essentiële informatie op te nemen, zoals paginanummers, bestandsnamen of bedrijfslogo’s. Hoewel Excel via ingebouwde functies tekst en afbeeldingen in kopteksten en voetteksten ondersteunt die tijdens het afdrukken zichtbaar zijn, wilt u deze secties mogelijk voorzien van een achtergrondkleur om leesbaarheid of branding te verbeteren. Helaas biedt Excel momenteel geen directe optie om een achtergrondkleur toe te passen op de koptekst- of voettekstgebieden in de afdruk. Dit kan frustrerend zijn als u deze secties visueel wilt onderscheiden van uw gegevens bij het afdrukken. Hieronder vindt u praktische oplossingen om een gekleurde koptekst of voettekst na te bootsen in uw Excel-afdrukken, afgestemd op verschillende behoeften en technische vaardigheden.
Voeg Achtergrondkleur toe aan koptekst of voettekst via Vulkleur
Voeg Achtergrondkleur toe aan koptekst en voettekst via VBA
Voeg Achtergrondkleur toe aan koptekst of voettekst via Vulkleur
Deze aanpak bestaat erin dat u werkbladcellen opmaakt om visueel een gekleurde koptekst of voettekst na te bootsen. Omdat echte kopteksten en voetteksten, gemaakt via Pagina-indeling, geen ondersteuning bieden voor een achtergrondkleur, is het opmaken van de bovenste en/of onderste rijen een effectief alternatief. Deze methode is het meest geschikt wanneer uw hoofddoel is de visuele scheiding of branding van afgedrukte bladen te verbeteren, en wanneer de inhoud van uw koptekst of voettekst in werkbladrijen kan worden weergegeven in plaats van in echte afdrukkopteksten of -voetteksten.
De beperkingen van deze methode zijn dat u geen dynamische koptekst- of voettekstvelden (zoals paginanummers) kunt gebruiken en dat u deze stappen handmatig moet herhalen voor elk werkblad.
1. Klik op Pagina-indeling > Pagina-instelling.
Voordat u verdergaat, is het belangrijk om alle marges in te stellen op 0 om de beschikbare werkbladruimte te maximaliseren en ervoor te zorgen dat de gekleurde gebieden strak tegen de boven- en/of onderkant van elke afgedrukte pagina aansluiten. Zo creëert u bij het afdrukken de illusie van een echte koptekst- of voettekstachtergrond.
2. Ga in het dialoogvenster Pagina-instelling naar het tabblad Marges en typ 0 in de tekstvakken Boven, Koptekst, Onder en Voettekst. Zo zorgt u ervoor dat er geen ruimte wordt gereserveerd voor de ingebouwde kopteksten en voetteksten van Excel, zodat uw werkbladinhoud precies bovenaan en onderaan de afgedrukte pagina staat.
3. Klik op OK om de margeaanpassingen toe te passen. Selecteer de eerste rij van uw werkblad (deze rij fungeert visueel als uw koptekst) en ga vervolgens naar Start > Samenvoegen en centreren om alle kolommen in deze rij samen te voegen tot één cel. Zo ontstaat een groot gebied voor uw koptekst en achtergrondkleur.
Tip: Zorg bij documenten met meerdere kolommen dat u het juiste celbereik selecteert en samenvoegt om het volledige gegevensgebied te dekken.
4. Met de samengevoegde cel geselecteerd, klikt u op de knop Vulkleur (emmerpictogram) op het tabblad Start en kiest u de gewenste achtergrondkleur uit het palet. Zo voegt u een zichtbare kleurbalk bovenaan uw blad toe die fungeert als koptekstachtergrond.
5. Als u ook een gekleurde voettekst wilt toevoegen, scrolt u naar de laatste rij van uw afdrukbereik, selecteert u deze en herhaalt u de stappen voor samenvoegen en vulkleur om onderaan de pagina een opvallend gekleurd gebied te creëren.
Voor optimale resultaten kunt u uw aangepaste koptekst- of voettekst direct invoegen in dit gekleurde en samengevoegde gebied. Desgewenst past u de tekstgrootte, uitlijning of opmaak aan om te voldoen aan uw afdrukvereisten. Houd er rekening mee dat deze methode de koptekst en voettekst alleen definieert binnen het zichtbare werkbladgebied. Als uw document meerdere pagina’s beslaat, moet u deze opmaakstappen mogelijk handmatig herhalen voor elke afgedrukte pagina of gebruikmaken van de functie „Bovenste rij” in Pagina-instelling voor kopteksten.
Wanneer u nu naar Bestand > Afdrukken gaat of op Ctrl + P drukt, ziet u een gekleurde balk bovenaan (en/of onderaan) de voorbeeldpagina die fungeert als gesimuleerde achtergrond voor uw koptekst of voettekst.
Als de kleur niet verschijnt zoals bedoeld in de afdrukvoorvertoning, controleer dan of uw printerinstellingen en werkbladbereik overeenkomen en of het afdrukgebied uw opgemaakte rijen omvat.
Voeg Achtergrondkleur toe aan koptekst en voettekst via VBA
Voor complexere werkbladen of wanneer u met meerdere pagina’s werkt en een geautomatiseerde manier zoekt om op elke afgedrukte pagina gekleurde koptekst- en voettekstgebieden te creëren, kunt u een VBA-macro gebruiken om deze effecten snel door uw werkblad toe te passen. Deze VBA-oplossing voegt vooraf gedefinieerde gekleurde rijen toe aan het begin en einde van elk paginabereik, zodat bij afdrukken de indruk ontstaat van gekleurde kopteksten en voetteksten.
Deze aanpak is vooral geschikt voor grotere werkbladen, oude rapporten of situaties waarin een uniforme stijl nodig is op veel pagina’s. Het vereist wel dat u macrofunctionaliteit inschakelt en enige ervaring heeft met de VBA-interface. Let op: dit beïnvloedt nog steeds niet de daadwerkelijke Excel-koptekst of -voettekst, maar werkt door de werkbladinhoud rechtstreeks aan te passen om bij het afdrukken een simulatie te creëren.
1. Druk op Alt + F11 om het venster van de Microsoft Visual Basic for Applications-editor te openen. Als u VBA voor het eerst gebruikt, moet u mogelijk eerst het tabblad Ontwikkelaar inschakelen.
2. Klik in het VBA-venster op Invoegen > Module. Kopieer en plak de volgende code in het codegebied van de nieuwe module:
VBA: Voeg Achtergrondkleur toe aan koptekst en voettekst
Sub FakeHeaderFooter()
'UpdatebyExtendoffice20180628
Dim I, J As Long
Dim xRg As Range
Dim xRow, xCol As Long
Dim xRows, xCols As Long
Dim xDivRow, xDivCol As Long
Dim xTopArr, xButtArr As Variant
Dim PageSize1, PageSize2 As Integer
On Error Resume Next
xTopArr = Array("Top Left", "", "", "Top Center", "", "", "", "")
xButtArr = Array("Bottom Left", "", "", "Bottom Center", "", "", "", "")
PageSize1 = 46
PageSize2 = 8
With ActiveSheet.PageSetup
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.BlackAndWhite = False
End With
Set xRg = ActiveSheet.UsedRange
If xRg Is Nothing Then Exit Sub
xRows = xRg(xRg.Count).Row
xCols = xRg(xRg.Count).Column
If xRows < 46 Then xRows = 46
If xCol < 8 Then xCol = 8
xDivRow = Int(xRows / PageSize1)
xDivCol = Int(xCols / PageSize2)
If ((xRows Mod PageSize1) > 0) And (xDivRow <> 0) Then xDivRow = xDivRow + 1
If ((xCols Mod PageSize2) > 0) And (xDivCol <> 0) Then xDivCol = xDivCol + 1
If xDivRow = 0 Then xDivRow = 1
If xDivCol = 0 Then xDivCol = 1
Set xRg = Range("A1").Resize(xDivRow * PageSize1, xDivCol * PageSize2)
xRow = 1
xCol = 1
Cells.PageBreak = xlPageBreakNone
For I = 1 To xDivRow * PageSize1 Step PageSize1 + 1
For J = 1 To xDivCol * PageSize2 Step PageSize2
Cells(I, J).Resize(1, PageSize2) = xTopArr
Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex = 34
Cells(I + PageSize1, J).Resize(1, PageSize2) = xButtArr
Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex = 34
Rows(I + PageSize1 + 1).PageBreak = xlManual
Columns(J + PageSize2).PageBreak = xlManual
Next
Next
End Sub
3. Druk op F5 of klik op de knop Uitvoeren in de VBA-werkbalk om de code uit te voeren. De macro voegt automatisch gekleurde rijen toe bovenaan en onderaan elk paginabereik, zoals bepaald door de ingestelde PageSize1 (aantal rijen per pagina) en PageSize2 (aantal kolommen per pagina). De eerste en 47e rij op elke „pagina” worden gevuld met de opgegeven kleur en vooraf gedefinieerde tekst, die samen dienen als „nep” koptekst en voettekst bij afdrukvoorvertoning of afdrukken van uw werkblad.
U kunt deze macro verder aanpassen aan uw wensen. Wilt u bijvoorbeeld de inhoud van de koptekst of voettekst wijzigen? Pas dan de tekst aan in deze regels:
xTopArr = Array("Top Left", "", "", "Top Center", "", "", "", „")
xButtArr = Array("Bottom Left", "", "", "Bottom Center", "", "", "", „")
Wilt u een andere Achtergrondkleur, wijzig dan de waarde van ColorIndexhier:
Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex =34
Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex =34
De macro maakt gebruik van de standaard Excel-kleurcodes. Raadpleeg de ColorIndex-referentie van Microsoft of gebruik de kleurenkiezer in Excel om waarden te vinden die perfect aansluiten bij uw huisstijl of ontwerpvoorkeuren.
Opmerking: Sla uw werk op voordat u VBA-macro’s uitvoert, want acties kunnen niet ongedaan worden gemaakt met de standaardfunctie Ongedaan maken. Aangezien deze macro de inhoud van het werkblad wijzigt, controleert u of uw afdrukgebied correct is en past u de parameters PageSize1 en PageSize2 aan op basis van uw specifieke papier- en lay-outbehoeften. Deze methode voegt extra rijen toe en kan bestaande gegevens naar beneden schuiven, dus controleer uw lay-out nadat u de macro hebt uitgevoerd.
Als u problemen ondervindt met gekleurde gebieden die bij het afdrukken niet zoals verwacht worden weergegeven—zoals ontbrekende kleur of afgeknipte randen—controleer dan of ‘Achtergrondkleur afdrukken’ is ingeschakeld in de geavanceerde instellingen van uw printer én of het afdrukgebied van uw werkblad correct is ingesteld. Zowel de vulkleur- als de VBA-aanpak vereisen nauwkeurige aandacht voor samengevoegde cellen en afdrukbereikinstellingen, want een verkeerde configuratie kan leiden tot misalignering of gedeeltelijke kleuring.
Kies de oplossing die het beste aansluit bij uw Excel-versie, paginalay-out, de complexiteit van uw kop- en voettekstbehoeften, en of automatisering of ontwerpbewaking voor u prioriteit heeft. Het inkleuren van kop- en voetteksten is ideaal voor presentaties, omslagpagina’s of huisstijlbedrukte documenten waarbij de daadwerkelijke kop- en voettekstvelden niet dynamisch hoeven te worden bijgewerkt over meerdere pagina’s.
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