Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe blanco rijen stoppen bij het afdrukken van het werkblad?

Als er meerdere lege rijen in uw werkblad staan, worden normaal gesproken ook de lege rijen afgedrukt wanneer u het werkblad afdrukt. Als u het werkblad wilt afdrukken zonder de lege rijen te negeren, kunt u voor ons papieren opslaan, in dit geval hoe u lege rijen kunt stoppen bij het afdrukken van een werkblad?

Stop lege rijen bij het afdrukken van een werkblad met VBA-code

Stop lege rijen bij het afdrukken van het werkblad door de lege rijen tegelijk te verwijderen


pijl blauwe rechterbel Stop lege rijen bij het afdrukken van een werkblad met VBA-code


Met de volgende VBA-code kunt u het werkblad zonder lege rijen afdrukken. Dit doet u als volgt:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: stop lege rijen bij het afdrukken:

Sub Print_NonBlank_Rows()
'Updateby Extendoffice 20160704
Dim xStr As String
    Dim xRg As Range
    Dim xHideRg As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
            If xHideRg Is Nothing Then
                Set xHideRg = xRg.Rows(I)
            Else
                Set xHideRg = Union(xHideRg, xRg.Rows(I))
            End If
        End If
    Next
    xHideRg.EntireRow.Hidden = True
    ActiveSheet.PrintOut Copies:=1
    xHideRg.EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

3. Druk vervolgens op F5 toets om deze code uit te voeren, en een promptvenster zal verschijnen om u eraan te herinneren dat u het gegevensbereik selecteert dat u wilt afdrukken, zie screenshot:

document afdrukken zonder lege rijen 3

4. En klik vervolgens op OKen uw geselecteerde bereik is in één keer afgedrukt zonder de lege rijen.


pijl blauwe rechterbel Stop lege rijen bij het afdrukken van het werkblad door de lege rijen tegelijk te verwijderen

Als de lege rijen nutteloos voor u zijn, kunt u eerst alle lege rijen verwijderen en vervolgens het werkblad afdrukken zoals u nodig hebt. Met Kutools for Excel's Verwijder lege rijen functie, kunt u snel de lege rijen in een selectie, werkblad of werkmap verwijderen zoals u nodig hebt.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis om zonder beperking te proberen in 60-dagen.

Na het installeren van Kutools for Excel, alsjeblieft als volgt doen:

1. Selecteer het gegevensbereik waarvan u de lege rijen wilt verwijderen en klik vervolgens op Kutools > Verwijder > Verwijder lege rijen > In geselecteerd bereikzie screenshot:

document afdrukken zonder lege rijen 1

2. En een promptvenster verschijnt om u eraan te herinneren hoeveel lege rijen in een selectie zijn verwijderd.

document afdrukken zonder lege rijen 2

3. Nadat u de lege rijen hebt verwijderd, kunt u het werkblad afdrukken.

Klik nu gratis downloaden Kutools downloaden voor Excel!



Aanbevolen productiviteitstools voor Excel

Kutools voor Excel helpt u altijd om uw werk voor de tijd af te maken en uzelf te onderscheiden van een menigte

  • Meer dan 300 krachtige geavanceerde functies, ontworpen voor 1500-werkscenario's, verhoging van de productiviteit met 70%, geeft u meer tijd om voor uw gezin te zorgen en van het leven te genieten.
  • U hoeft niet langer formules en VBA-codes te onthouden, maar uw hersenen rust vanaf nu.
  • Word een Excel-expert in 3 minuten, gecompliceerde en herhaalde bewerkingen kunnen in seconden worden uitgevoerd,
  • Verminder dagelijks duizenden toetsenbord- en muisbewerkingen, zeg nu tot ziens tegen beroepsziekten.
  • 110,000 zeer effectieve mensen en 300 + keuze van wereldberoemde bedrijven.
  • 60-day full features free trial. 60-dagen geld-teruggaranties. 2 jaar gratis upgrade en ondersteuning.

Brengt browsen met tabbladen en bewerken naar Microsoft Office, veel krachtiger dan de tabbladen van de browser

  • Office-tabblad is ontworpen voor Word, Excel, PowerPoint en andere Office-toepassingen: Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.