如何防止在 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. 然后单击 确定，您选择的区域将立即打印出来且不含空白行。