Hoe drukt u randen af rond elke pagina in Excel?
Bij het werken met grote werkbladen die zich uitstrekken over honderden pagina’s, is het essentieel om de gegevens duidelijk en professioneel af te drukken. Een effectieve manier om dit te bereiken, is door een rand rond elke afgedrukte pagina toe te voegen – zodat de afdruk visueel gestructureerd en gemakkelijker leesbaar wordt. Hoewel u handmatig randen kunt toepassen op de inhoud van elke pagina in Excel, is deze aanpak uiterst tijdrovend en onpraktisch bij meerdere pagina’s. Gelukkig bestaan er efficiëntere oplossingen om automatisch randen rond elke pagina in Excel af te drukken. In dit artikel bespreken we verschillende praktische methoden om deze taak uit te voeren, inclusief ingebouwde opties en slimme alternatieven.
➤ Randen rond elke pagina afdrukken met rasterlijnen instellen
➤ Randen rond elke pagina afdrukken met één klik met Kutools voor Excel
➤ Randen rond elke pagina afdrukken met VBA-macroautomatisering
Randen rond elke pagina afdrukken met rasterlijnen instellen
Hoewel Excel geen specifieke optie biedt om een rand rond elke afgedrukte pagina toe te voegen, kunt u de functie Rasterlijnen afdrukken gebruiken om pagina-randen na te bootsen. Dit is snel en vereist geen add-ins. Let op: er wordt geen dikke pagina-omlijning gemaakt—Excel drukt alle rasterlijnen af, en de pagina-rand wordt visueel bepaald door de meest uiterste afgedrukte rasterlijnen.
Opmerkingen:
- Deze methode levert het beste resultaat wanneer uw werkblad past in een regelmatig raster en u geen zware aangepaste randen gebruikt.
- Als uw werkblad al opvallende randen gebruikt voor tabellen, kunnen afgedrukte rasterlijnen daar visueel mee botsen.
1. Verwijder eventuele aangepaste randen eerst om overlappende of inconsistente lijnen bij het afdrukken te voorkomen. Selecteer het werkblad en ga naar Start > Rand (pictogram) > Geen rand om de randen van alle geselecteerde cellen te verwijderen:
2. Ga naar Pagina-indeling > klik op de Pagina-instelling-dialoogstarter (de kleine pijl in de hoek van de groep) om het Pagina-instelling-dialoogvenster te openen:
3. Ga in Pagina-instelling naar het tabblad Blad en vink Rasterlijnen aan onder het gedeelte Afdrukken, zodat alle rasterlijnen (inclusief die aan de pagina-randen) worden afgedrukt:
4. Klik op Afdrukvoorbeeld om het resultaat te bevestigen. Bij het afdrukken toont elke pagina een duidelijke rechthoekige rastergrens, gevormd door de meest uiterste afgedrukte rasterlijnen, waardoor een pagina-rand wordt nagebootst. Zie voorbeeld:
Tips:
- Als u dikkere, opvallende randen nodig heeft, overweeg dan om handmatig buitenranden toe te voegen aan het afdrukgebied of gebruik een macro om pagina-omlijningen te tekenen.
- Vermijd samengevoegde of onregelmatige celgebieden, want die kunnen de visuele continuïteit van afgedrukte rasterlijnen verstoren.
- Bekijk altijd een afdrukvoorbeeld om er zeker van te zijn dat het resultaat aan uw verwachtingen voldoet.
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.
Randen rond elke pagina afdrukken met één klik met Kutools voor Excel
Voor gebruikers die een professioneler ogende pagina-rand willen—met name bij werkbladen met complexe opmaak of wanneer rasterlijnen ontoereikend zijn—biedt Kutools voor Excel een handige oplossing: de functie Voeg randen toe aan paginascheidingen. Met deze tool voegt u met één klik een solide rand toe aan elke afdrukbare pagina van het actieve werkblad, waardoor tijd wordt bespaard en een consistente weergave op alle pagina’s gegarandeerd is.
Volg na installatie van Kutools voor Excel deze stappen om Voeg randen toe aan paginascheidingen:
1. Activeer het werkblad waarop u randen wilt toevoegen en ga naar Onderneming > Afdrukken > Voeg randen toe aan paginascheidingen. Zie de screenshot:
2. Als er een dialoogvenster verschijnt met de waarschuwing dat alle bestaande randen worden verwijderd als u doorgaat, controleer dan eerst of u uw werk hebt opgeslagen of dat het overschrijven van randen acceptabel is. Klik op Ja om door te gaan:
Zodra u deze optie toepast, krijgt elke pagina van uw werkblad een dikke, duidelijke rand, zodat de afdruk er netjes en gemakkelijk onderscheidbaar uitziet. Deze methode is snel en vereist minimaal handmatig werk.
Tips en opmerkingen:
- Bestaande randen op het huidige werkblad worden verwijderd wanneer u deze optie gebruikt.
- Als u specifieke randen wilt behouden, overweeg dan eerst een back-up te maken van uw bestand of werkblad.
- Deze optie is ideaal voor grote werkbladen met meerdere afdrukpagina’s die consistente en visueel duidelijke pagina-randen nodig hebben.
Randen rond elke pagina afdrukken met VBA-macroautomatisering
Als u het toevoegen van een rand rond elke afdrukbare pagina wilt automatiseren—bijvoorbeeld voor terugkerende taken of aangepaste lay-outs—kunt u een VBA-macro gebruiken die Excel-pagina-einden detecteert en automatisch een pagina-omlijning tekent. Zo behoudt u volledige controle over stijl en dikte van de rand, zonder afhankelijk te zijn van add-ins.
Opmerkingen:
- De macro omlijnt elke afdrukbare pagina uitsluitend aan de buitenranden (boven, links, onder en rechts), zonder bestaande interne celranden te overschrijven.
- Werkt het beste op goed gestructureerde werkbladen; complexe samengevoegde cellen of ongebruikelijke afdrukgebieden vereisen mogelijk kleine aanpassingen.
Werkstappen:
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 de volgende code en plak deze 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. Ga terug naar Excel, zorg dat het doelwerkblad actief is en voer de macro uit met F5(of via de knop)Uitvoeren). De macro detecteert pagina-einden en tekent een dikke rand rond elk afdrukblok.
Tips:
- Pas de stijl en dikte van de rand aan door de vier
xlEdge*-secties aan te passen (bijv.).Weight = xlMedium), en de kleur via.Color. - Als er een aangepast Afdrukgebied is ingesteld, volgt het pagina-einde in Excel deze instelling. Controleer het resultaat in Afdrukvoorbeeld.
- Sla uw werkmap op voordat u macro’s uitvoert. Voor herhaald gebruik slaat u deze op als een macro-inschakelbaar bestand ()
.xlsm). - Als er geen inhoud wordt gevonden, sluit de macro veilig af met een melding om fouten op lege werkbladen te voorkomen.
Als de macro niet naar verwachting werkt, controleer dan op samengevoegde cellen, verborgen rijen of kolommen, of ongebruikelijke schaalinstanties (bijvoorbeeld ‘Passend maken op 1 pagina breed bij N pagina’s hoog’). Verfijn de pagina-blokken door uw afdrukgebied- of pagina-instellingen aan te passen en voer de macro opnieuw uit.
Rand rond elke pagina toevoegen
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