Hoe drukt u een werkblad af zonder lege rijen in Excel?
Bij het afdrukken van een werkblad worden ook de lege rijen afgedrukt. Sommige Excel-gebruikers willen het werkblad echter zonder lege rijen afdrukken om de gegevens compacter weer te geven en papier te besparen. Maar hoe drukt u een werkblad af zonder lege rijen in Excel? Dit artikel biedt u twee methoden.
Verberg Lege rijen vóór het afdrukken met VBA-code
Verwijder lege rijen vóór het afdrukken met Kutools voor Excel
Verberg Lege rijen vóór het afdrukken met VBA-code
Voer de onderstaande VBA-code uit om lege rijen binnen een beperkt bereik automatisch te verbergen vóór het afdrukken van het werkblad. Volg hiervoor deze stappen.
1. Druk op de toetsencombinatie Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het modulevenster.
VBA-code: Verberg Lege rijen Geselecteerd bereik
Sub HideBlankRows()
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
Dim I As Long
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "Don't support multiple ranges", , "Kutools for Excel"
Exit Sub
End If
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xRg.Rows.Count
xRg.Rows(I).EntireRow.Hidden = (Application.CountA(xRg.Rows(I)) = 0)
Next
Application.ScreenUpdating = xUpdate
End Sub3. Druk op de F5-toets om de code uit te voeren. Vervolgens verschijnt er een Kutools voor Excel-dialoogvenster. Selecteer het bereik met lege rijen dat u niet wilt afdrukken en klik op de knop OK.
Vervolgens worden alle lege rijen in het geselecteerde bereik onmiddellijk verborgen, zodat u het werkblad direct kunt afdrukken zonder lege rijen.
Opmerking: Na het afdrukken kunt u deze lege rijen zichtbaar maken met de volgende VBA-code.
VBA-code: Maak alle Lege rijen Geselecteerd bereik zichtbaar
Sub UnhideRows()
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range to unhide the blank rows", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
xRg.EntireRow.Hidden = False
Application.ScreenUpdating = xUpdate
End SubVerwijder lege rijen vóór het afdrukken met Kutools voor Excel
Als u een werkblad zonder lege rijen wilt afdrukken, raden we u aan alle lege rijen te verwijderen met de functie Verwijder lege rijen van Kutools voor Excel, waarna u het werkblad handmatig kunt afdrukken.
1. Klik op Kutools > Verwijderen > Verwijder lege rijen > Geselecteerd bereik / Actief werkblad / Geselecteerde werkbladen / In alle werkbladen, afhankelijk van uw behoeften. Zie de schermafbeelding:
Opmerking: Selecteer eerst het bereik waaruit u lege rijen wilt verwijderen en pas daarna de functie toe.
2. Er verschijnt vervolgens een dialoogvenster met het aantal verwijderde rijen. Klik op de knop OK.
Alle lege rijen zijn nu verwijderd – tijd om uw werkblad af te drukken!
Opmerking: Voor deze functie geldt ongedaan maken via Ctrl+Z.
Wilt u een gratis proefversie (30 dagen) van deze tool gebruiken?Klik dan hier om deze te downloaden en volg daarna bovenstaande stappen om de bewerking toe te passen.
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