Πώς να αποτρέψετε την εκτύπωση κενών σειρών στο Excel;

Εάν το φύλλο εργασίας του Excel περιέχει κενές σειρές, συνήθως θα εκτυπωθούν μαζί με τα υπόλοιπα δεδομένα σας, χάνοντας χαρτί και χώρο. Για να αποφύγετε αυτό, μπορείτε να χρησιμοποιήσετε έναν κωδικό VBA για να αποκρύψετε αυτόματα τις κενές σειρές πριν από την εκτύπωση. Αυτός ο οδηγός θα σας δείξει πώς να ρυθμίζετε και να χρησιμοποιείτε αυτόν τον κωδικό για να εκτυπώνετε μόνο σειρές με δεδομένα, διασφαλίζοντας μια πιο καθαρή και αποτελεσματική εκτύπωση.

Εξαιρέστε τις κενές σειρές κατά την εκτύπωση ενός φύλλου εργασίας με κωδικό VBA

Εξαιρέστε τις κενές σειρές κατά την εκτύπωση ενός φύλλου εργασίας με κωδικό VBA

Με τον ακόλουθο κώδικα VBA, μπορείτε να εκτυπώσετε το φύλλο εργασίας χωρίς κενές σειρές, κάντε το ως εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Διακοπή κενών γραμμών κατά την εκτύπωση:

Sub Print_NonBlank_Rows()
'Updateby Extendoffice
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. Στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα. Θα εμφανιστεί ένα πλαίσιο προτροπής, το οποίο σας ζητά να επιλέξετε το εύρος δεδομένων που θέλετε να εκτυπώσετε. Δείτε στιγμιότυπο οθόνης:

4. Και στη συνέχεια κάντε κλικ στο κουμπί OKκαι το επιλεγμένο εύρος εκτυπώθηκε ταυτόχρονα χωρίς τις κενές σειρές.