Как предотвратить печать пустых строк в Excel?

Если ваша электронная таблица Excel содержит пустые строки, они обычно будут печататься вместе с остальными данными, что приведет к потере бумаги и места. Чтобы избежать этого, вы можете использовать код VBA для автоматического скрытия пустых строк перед печатью. Это руководство покажет вам, как настроить и использовать этот код для печати только строк с данными, обеспечивая более чистый и эффективный вывод на печать.

Исключите пустые строки при печати листа с помощью кода VBA

Исключите пустые строки при печати листа с помощью кода VBA

С помощью следующего кода VBA вы сможете напечатать лист без пустых строк, выполните следующие действия:

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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, и выбранный вами диапазон будет немедленно напечатан без пустых строк.