如何防止在 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. 然後點擊 確定，您選擇的範圍將立即被列印，並且不會包含空白行。