Hoe geef ik alleen het afdrukgebied weer in een werkblad in Excel?

Wanneer u een werkblad weergeeft in de pagina-eindevoorvertoning door op Beeld > Pagina-einde Voorvertoning te klikken, verandert de achtergrond van het niet-afdrukgebied automatisch naar donkergrijs. Zie de onderstaande schermafbeelding:

Opmerking: U kunt ook overschakelen naar de pagina-eindevoorvertoning door op de knop Pagina-einde Voorvertoning in de statusbalk te klikken.

Deze methode verbergt echter het niet-afdrukgebied niet, en u kunt de gegevens in het niet-afdrukgebied nog steeds bekijken.

Met één klik alles verbergen behalve Bereik selecteren (niet-gebruikte kolommen/rijen/cellen verbergen)

Meestal gebruiken we slechts een deel van het werkblad, waardoor er lege cellen of bereiken met numerieke gegevens overblijven. Met de functie Verberg niet-geselecteerd gebied van Kutools voor Excel verbergt u met één klik alles behalve het geselecteerde bereik – of eenvoudigweg alle ongebruikte cellen, rijen, kolommen en bereiken.

Om het niet-afdrukgebied in Excel volledig te verbergen, kunt u een VBA-macro gebruiken. Volg hiervoor deze stappen:

Stap 1: Druk tegelijkertijd op de toetsen Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

Stap 2: Klik op Invoegen>Moduleen plak vervolgens de volgende VBA-code in het modulevenster:

VBA: Alleen Afdrukgebied weergeven in Huidig werkblad

Public Sub HideAllButPrintArea()
Dim xPrintRng As Range
Dim xFirstRng As Range
Dim xLastRng As Range
Application.ScreenUpdating = False
With Application.ActiveSheet
.Cells.EntireColumn.Hidden = False
.Cells.EntireRow.Hidden = False
If .PageSetup.PrintArea <> "" Then
Set xPrintRng = .Range(.PageSetup.PrintArea)
Else
Set xPrintRng = .UsedRange
End If
Set xFirstRng = xPrintRng.Cells(1)
Set xLastRng = xPrintRng.Cells(xPrintRng.Count)
If xFirstRng.Row > 1 Then
.Range(.Cells(1, 1), xFirstRng(-0, 1)).EntireRow.Hidden = True
End If
If xFirstRng.Column > 1 Then
.Range(.Cells(1, 1), xFirstRng(1, 0)).EntireColumn.Hidden = True
End If
If xLastRng.Row < .Rows.Count Then
.Range(xLastRng(2, 1), .Cells(.Rows.Count, 1)).EntireRow.Hidden = True
End If
If xLastRng.Column < .Columns.Count Then
.Range(xLastRng(1, 2), .Cells(1, .Columns.Count)).EntireColumn.Hidden = True
End If
End With
Application.ScreenUpdating = True
End Sub

Stap 3: Druk op de toets F5 of klik op de knop Uitvoeren om deze VBA-macro uit te voeren.

Vervolgens ziet u dat het niet-afdrukgebied direct verborgen wordt en alleen het afdrukgebied wordt weergegeven op het huidige werkblad. Zie de onderstaande schermafbeelding:

Opmerkingen:

1. Wanneer er maar één afdrukgebied aanwezig is in het huidige werkblad, werkt de VBA-macro perfect.
2. Deze methode ondersteunt geen ongedaanmaken. Om niet-afdrukgebieden weer zichtbaar te maken, moet u deze handmatig zichtbaar stellen of de functie van Kutools voor Excel gebruiken: Verbergen > Verberg alle verborgen bereiken.

Als u Kutools voor Excel hebt geïnstalleerd, helpt het bijbehorende hulpprogramma Verberg niet-geselecteerd gebied u gemakkelijk om alleen een afdrukgebied in het huidige werkblad weer te geven.

Stap 1: Selecteer het afdrukgebied in het huidige werkblad.

Opmerking: Als u het afdrukgebied niet snel kunt vinden, drukt u op de toets F5 om het dialoogvenster ‘Ga naar’ te openen, selecteert u de naam van het afdrukgebied en klikt u op de knop OK, zoals op de onderstaande schermafbeelding. Deze methode selecteert echter alle afdrukgebieden in het huidige werkblad.

Stap 2: Klik op Kutools > Weergeven / Verbergen > Verberg niet-geselecteerd gebied.

Vervolgens ziet u direct dat alleen de geselecteerde Afdrukgebied wordt weergegeven in Huidig werkblad, zoals op de onderstaande schermafbeelding:

Opmerkingen:

1. Kutools voor Excel’s Verberg niet-geselecteerd gebied ondersteunt ongedaan maken. Druk tegelijkertijd op de toetsen Ctrl + Z om het verborgen, niet-geselecteerde gebied weer zichtbaar te maken.
2. Klik op Kutools > Weergeven / Verbergen > VerbergenVerberg alle verborgen bereiken om verborgen niet-afdrukgebieden direct weer te geven.

Schermpositie instellen of andere cellen verbergen

Verborgen bereiken (kolommen en rijen) weergeven

Andere werkbladen verbergen