打印工作表时如何停止空白行？

如果您的工作表中有多个空白行，通常，当您打印工作表时，空白行也将被打印。 要打印工作表而忽略空白行可以为我们节省纸张，在这种情况下，如何在打印工作表时停止空白行？

使用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，并且您选择的范围已立即打印，没有空白行。