Як зупинити порожні рядки під час друку аркуша?

Якщо на вашому аркуші є кілька порожніх рядків, як правило, під час друку аркуша друкуються і порожні рядки. Щоб надрукувати аркуш, ігноруючи порожні рядки, ми можемо зберегти для нас документи, як у цьому випадку, як можна зупинити пусті рядки під час друку аркуша?

Зупиніть порожні рядки під час друку аркуша з кодом VBA

---

Зупиніть порожні рядки під час друку аркуша з кодом VBA

За допомогою наведеного нижче коду VBA ви можете надрукувати аркуш без порожніх рядків, зробіть так:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код 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, а вибраний діапазон надруковано відразу без порожніх рядків.