Hoe druk je randen af rond elke pagina in Excel?
Bij het werken met grote werkbladen die honderden pagina's beslaan, wordt het essentieel om de gegevens in een duidelijk en professioneel formaat af te drukken. Een manier om dit te bereiken, is door een rand rond elke afgedrukte pagina toe te voegen, zodat de afdruk visueel gescheiden is en gemakkelijker te lezen. Hoewel je handmatig randen kunt selecteren en toepassen op de inhoud van elke pagina in Excel, is deze aanpak extreem tijdrovend en onpraktisch bij het omgaan met meerdere pagina's. Gelukkig zijn er efficiëntere oplossingen om automatisch randen af te drukken rond elke pagina in Excel. In dit artikel onderzoeken we verschillende praktische methoden om deze taak uit te voeren, inclusief ingebouwde opties en alternatieve benaderingen.
➤ Randen rond elke pagina afdrukken met rasterlijnen instellen
➤ Randen rond elke pagina in één klik afdrukken met Kutools voor Excel
➤ Randen rond elke pagina afdrukken met behulp van VBA-macroautomatisering
Randen rond elke pagina afdrukken met rasterlijnen instellen
Hoewel Excel geen speciale optie biedt om een rand rond elke afgedrukte pagina toe te voegen, kun je de functie Rasterlijnen afdrukken gebruiken om paginaranden te simuleren. Dit is snel en vereist geen invoegtoepassingen. Let op dat het geen dikke paginarand zal creëren — Excel drukt alle rasterlijnen af, en de rand van de pagina wordt visueel gedefinieerd door de laatst afgedrukte rasterlijnen.
Opmerkingen:
- Deze methode werkt het beste wanneer je werkblad past in een reguliere rasterindeling en je niet afhankelijk bent van zware aangepaste randen.
- Als je werkblad al gebruikmaakt van opvallende randen voor tabellen, kunnen afgedrukte rasterlijnen visueel botsen met deze.
1. Als er aangepaste randen bestaan, verwijder ze dan eerst om overlappende of inconsistente lijnen in de afdruk te voorkomen. Selecteer het werkblad, ga vervolgens naar Start > Rand (icoon) > Geen rand om randen voor alle geselecteerde cellen te wissen:
2. Ga naar Pagina-indeling > klik op de dialoogstarter voor Pagina-instelling (klein pijltje in de hoek van de groep) om het dialoogvenster Pagina-instelling te openen:
3. Schakel in Pagina-instelling over naar het tabblad Blad en vink Rasterlijnen aan onder de sectie Afdrukken, zodat alle rasterlijnen (inclusief die aan de randen van de pagina) worden afgedrukt:
4. Klik op Afdrukvoorbeeld om het resultaat te bevestigen. Wanneer je afdrukt, toont elke pagina een duidelijke rechthoekige rastergrens gevormd door de buitenste afgedrukte rasterlijnen, wat een paginarand nabootst. Zie voorbeeld:
Tips:
- Als je dikkere, opvallende randen nodig hebt, overweeg dan om handmatig buitenranden toe te voegen voor het afdrukgebied of gebruik een macro om paginaranden te tekenen.
- Vermijd samengevoegde/onregelmatige celgebieden; deze kunnen de visuele continuïteit van afgedrukte rasterlijnen verstoren.
- Bekijk altijd een voorbeeld voordat je afdrukt om ervoor te zorgen dat de weergave aan je verwachtingen voldoet.
Ontdek de Magie van Excel met Kutools AI
- Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
- Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
- VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules gemakkelijk.
- Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.
Randen rond elke pagina in één klik afdrukken met Kutools voor Excel
Voor gebruikers die een professioneler uitziende paginarand willen — vooral in werkbladen met complexe opmaak of wanneer rasterlijnen onvoldoende zijn — biedt Kutools voor Excel een handige oplossing: de Voeg randen toe aan elke pagina-functie. Met deze tool kun je met één klik een stevige rand toevoegen aan elke afdrukbare pagina van het actieve werkblad, wat tijd bespaart en een consistente weergave over alle pagina's garandeert.
Na installatie van Kutools voor Excel volg je deze stappen om randen toe te voegen aan elke pagina:
1. Activeer het werkblad waar je randen wilt toevoegen, ga vervolgens naar Onderneming > Afdrukken > Voeg randen toe aan elke pagina. Zie schermafbeelding:
2. Als er een dialoogvenster verschijnt met de waarschuwing dat alle bestaande randen worden verwijderd als je doorgaat, zorg er dan voor dat je je werk hebt opgeslagen of bevestigd dat overschrijven van randen acceptabel is. Klik Ja om door te gaan:
Zodra toegepast, zal elke pagina van je werkblad worden omlijnd met een stevige, duidelijke rand, waardoor de afgedrukte uitkomst georganiseerd en gemakkelijk te onderscheiden lijkt. Deze methode is snel en minimaliseert handmatige inspanningen.
Tips en opmerkingen:
- Bestaande randen worden verwijderd van het actieve werkblad bij gebruik van deze optie.
- Als je specifieke randen wilt behouden, overweeg dan om eerst je bestand of werkblad te back-uppen.
- Deze optie werkt goed voor grote werkbladen met meerdere afdrukpagen die consistent en visueel duidelijke paginaranden vereisen.
Randen rond elke pagina afdrukken met behulp van VBA-macroautomatisering
Als je het toevoegen van een rand rond elke afdrukbare pagina wilt automatiseren — vooral voor terugkerende taken of aangepaste lay-outs — kun je een VBA-macro gebruiken die Excel-pagina-einden leest en een paginarand tekent. Dit geeft je volledige controle over de randstijl en dikte zonder afhankelijk te zijn van invoegtoepassingen.
Opmerkingen:
- De macro omlijnt elke afdrukbare pagina met een rand langs de buitenranden (boven/links/onder/rechts). Het zal bestaande interne celranden niet overschrijven.
- Werkt het beste op goed gestructureerde bladen; complexe samengevoegde cellen of ongebruikelijke afdrukgebieden kunnen kleine aanpassingen vereisen.
Operatiestappen:
1. Druk op Alt + F11 om de Visual Basic for Applications-editor te openen. Klik op Invoegen > Module om een nieuwe module toe te voegen.
2. Kopieer en plak de volgende code in de module:
Sub AddBorderToEachPrintablePage()
Dim ws As Worksheet
Dim LastRow As Long, LastCol As Long
Dim StartRow As Long, EndRow As Long
Dim StartCol As Long, EndCol As Long
Dim vRowBreaks As Variant, vColBreaks As Variant
Dim i As Long, j As Long
Dim oldDisp As Boolean
Dim f As Range
Set ws = ActiveSheet
Application.ScreenUpdating = False
Application.EnableEvents = False
' Check if sheet is empty
Set f = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
If f Is Nothing Then GoTo CleanUp
LastRow = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LastCol = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
' Force refresh of page breaks
oldDisp = ws.DisplayPageBreaks
ws.DisplayPageBreaks = True
' Collect horizontal page breaks (add top and bottom bounds)
vRowBreaks = Array(0)
For i = 1 To ws.HPageBreaks.Count
vRowBreaks = ArrayJoin(vRowBreaks, Array(ws.HPageBreaks(i).Location.Row - 1))
Next i
vRowBreaks = ArrayJoin(vRowBreaks, Array(LastRow))
' Collect vertical page breaks (add left and right bounds)
vColBreaks = Array(0)
For j = 1 To ws.VPageBreaks.Count
vColBreaks = ArrayJoin(vColBreaks, Array(ws.VPageBreaks(j).Location.Column - 1))
Next j
vColBreaks = ArrayJoin(vColBreaks, Array(LastCol))
' Draw only outer borders for each printable page
For i = 0 To UBound(vRowBreaks) - 1
StartRow = vRowBreaks(i) + 1
EndRow = vRowBreaks(i + 1)
For j = 0 To UBound(vColBreaks) - 1
StartCol = vColBreaks(j) + 1
EndCol = vColBreaks(j + 1)
With ws.Range(ws.Cells(StartRow, StartCol), ws.Cells(EndRow, EndCol))
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous: .Weight = xlThick
End With
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous: .Weight = xlThick
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous: .Weight = xlThick
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous: .Weight = xlThick
End With
End With
Next j
Next i
CleanUp:
ws.DisplayPageBreaks = oldDisp
Application.EnableEvents = True
Application.ScreenUpdating = True
If Not f Is Nothing Then
MsgBox "Borders have been added to each printable page!", vbInformation, "AddBorderToEachPrintablePage"
End If
End Sub
Function ArrayJoin(a As Variant, b As Variant) As Variant
Dim temp() As Variant
Dim alen As Long, blen As Long, k As Long
alen = UBound(a) - LBound(a) + 1
blen = UBound(b) - LBound(b) + 1
ReDim temp(0 To alen + blen - 1)
For k = 0 To alen - 1
temp(k) = a(k)
Next k
For k = 0 To blen - 1
temp(alen + k) = b(k)
Next k
ArrayJoin = temp
End Function
3. Keer terug naar Excel, zorg ervoor dat het doelwerkblad actief is, en voer de macro uit met F5 (of de Uitvoeren-knop). De macro detecteert pagina-einden en tekent een dikke rand rond elk afdrukbare paginablok.
Tips:
- Pas randstijl/gewicht aan door de vier
xlEdge*-secties te bewerken (bijvoorbeeld.Weight = xlMedium, kleur via.Color). - Als een aangepast Afdrukgebied is ingesteld, volgen Excel’s pagina-einden dit; controleer de resultaten in Afdrukvoorbeeld.
- Sla je werkmap op voordat je macros uitvoert. Voor herhaald gebruik, sla op als een macro-ingeschakeld bestand (
.xlsm). - Als geen inhoud wordt gevonden, sluit de macro veilig af met een bericht (voorkomt fouten op lege bladen).
Als de macro niet zoals verwacht gedraagt, controleer dan op samengevoegde cellen, verborgen rijen/kolommen of ongebruikelijke schaalinstellingen (bijvoorbeeld 'Passend maken op 1 pagina breed bij N pagina's hoog'). Je kunt paginablokken verfijnen door je Afdrukgebied of Pagina-instellingen te wijzigen en de macro opnieuw uit te voeren.
Voeg rand toe rond elke pagina
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen