Πώς να σταματήσετε τις κενές σειρές κατά την εκτύπωση φύλλου εργασίας;

Εάν υπάρχουν πολλές κενές γραμμές στο φύλλο εργασίας σας, κανονικά, όταν εκτυπώνετε το φύλλο, θα εκτυπωθούν και οι κενές σειρές. Για να εκτυπώσετε το φύλλο εργασίας αγνοώντας τις κενές σειρές μπορεί να αποθηκεύσετε χαρτιά για εμάς, σε αυτήν την περίπτωση, πώς θα μπορούσατε να σταματήσετε τις κενές σειρές κατά την εκτύπωση ενός φύλλου εργασίας;

Διακοπή κενών γραμμών κατά την εκτύπωση φύλλου εργασίας με κωδικό 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και το επιλεγμένο εύρος εκτυπώθηκε ταυτόχρονα χωρίς τις κενές σειρές.