Wanneer we een werkblad in de pagina-einde-weergave tonen door op de Bekijk > Pagina-einde voorbeeld, wordt de achtergrond van het niet-afdrukbare gebied automatisch in donkergrijs veranderd. Zie onderstaande schermafbeelding:

Note: U kunt ook naar de weergave Pagina-einde-voorbeeld gaan door op de Pagina-einde voorbeeld knop in de statusbalk.

Deze methode zal het niet-afdrukbare gebied echter niet verbergen en u kunt de gegevens nog steeds in het niet-afdrukbare gebied bekijken.

Eén klik om alles behalve het geselecteerde bereik te verbergen (verberg ongebruikte kolom / rijen / cellen)

Meestal gebruiken we slechts een deel van het werkblad met numerieke lege cellen / bereik over. Kutools voor Excel's Stel het schuifgebied in hulpprogramma kan u met één klik helpen om alles behalve het geselecteerde bereik te verbergen, of alle ongebruikte cellen / rijen / kolommen / bereiken gemakkelijk te verbergen.

Om niet-afdrukgebied volledig in Excel te verbergen, kunt u de VBA-macro proberen. En u kunt het als volgt doen:

Stap 1: druk op de anders + F11 toetsen tegelijk 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 het afdrukgebied weergeven in het huidige 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 F5 toets of klik op de lopen knop om deze VBA-macro uit te voeren.

Dan zult u zien dat het niet-afdrukgebied in één keer verborgen is en dat alleen het afdrukgebied wordt weergegeven in het huidige werkblad. Zie onderstaande schermafbeelding:

Opmerkingen:

1. Als er slechts één afdrukgebied in het huidige werkblad is, werkt de VBA-macro goed.
2. Deze methode ondersteunt geen ongedaan maken. Om niet-afdrukgebied weer te geven, moet u het niet-afdrukgebied handmatig zichtbaar maken of Kutools toepassen voor Excel's Verbergen> Alle bereiken zichtbaar maken utility.

Als u Kutools voor Excel hebt geïnstalleerd, is het Stel het schuifgebied in hulpprogramma helpt u om eenvoudig een afdrukgebied in het huidige werkblad weer te geven.

Stap 1: Selecteer het afdrukgebied in het huidige werkblad.

Note: Als u het afdrukgebied niet snel kunt vinden, kunt u op drukken F5 om het dialoogvenster Ga naar te openen, selecteert u de naam van het afdrukgebied en klikt u op OK knop zoals hieronder weergegeven schermafbeelding. Maar met deze methode worden alle afdrukgebieden in het huidige werkblad geselecteerd.

Stap 2: klik op de Kutools > Weergeven / verbergen > Stel het schuifgebied in.

Vervolgens ziet u dat alleen het geselecteerde afdrukgebied tegelijk in het huidige werkblad wordt weergegeven, zoals hieronder wordt weergegeven:

Opmerkingen:

1. Kutools voor Excel's Stel het schuifgebied in ondersteunt ongedaan maken, en u kunt op de Ctrl + Z toetsen tegelijkertijd om het verborgen niet-afdrukbare gebied te tonen.
2. U kunt klikken op Kutools > Tonen / Verbergen > Maak alle bereiken zichtbaar om onmiddellijk een verborgen niet-afdrukgebied weer te geven.

Stel de schuifpositie in of verberg andere cellen

Verborgen bereiken weergeven (kolommen en rijen)

Verberg andere bladen