如何在Excel中打印沒有空白行的工作表

發布:未知文本批量工具

如何在Excel中打印沒有空白行的工作表？

在打印工作表時，空白行也將被打印出來。對于某些Excel用戶，他們傾向于打印沒有空白行的工作表，以壓縮數據并節省紙張。但是如何在Excel中打印沒有空白行的工作表。本文為您提供了兩種方法。

在使用VBA代碼打印之前隱藏空白行

打印前刪除空白行 Kutools for Excel在使用VBA代碼打印之前隱藏空白行

在打印工作表之前，您可以運行下面的VBA代碼以隱藏指定范圍內的空白行。請執行以下操作。

1。按其他 + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

2.在 Microsoft Visual Basic應用程序 窗口中，單擊插頁 > 模塊。然后將下面的VBA代碼復制并粘貼到“模塊”窗口中。

VBA代碼：隱藏選定范圍內的空白行

Sub HideBlankRows()Dim xRg As RangeDim xCell As RangeDim xAddress As StringDim xUpdate As BooleanDim I As LongOn Error Resume NextxAddress = Application.ActiveWindow.RangeSelection.AddressSet xRg = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)If xRg Is Nothing Then Exit SubIf xRg.Areas.Count > 1 ThenMsgBox "Dont support multiple ranges", , "Kutools for Excel"Exit SubEnd IfxUpdate = Application.ScreenUpdatingApplication.ScreenUpdating = FalseFor I = 1 To xRg.Rows.CountxRg.Rows(I).EntireRow.Hidden = (Application.CountA(xRg.Rows(I)) = 0)NextApplication.ScreenUpdating = xUpdateEnd SubCopy

3。按 F5 鍵來運行代碼，然后 Kutools for Excel 對話框彈出，請選擇您不想打印的空白行范圍，然后單擊 OK 按鈕。

然后，選定范圍內的所有空白行將立即隱藏。然后，您可以開始打印沒有空白行的工作表。

備注注意：打印后，可以使用以下VBA代碼取消隱藏這些空白行。

VBA代碼：取消隱藏選定范圍內的所有空白行

Sub UnhideRows()Dim xRg As RangeDim xCell As RangeDim xAddress As StringDim xUpdate As BooleanOn Error Resume NextxAddress = Application.ActiveWindow.RangeSelection.AddressSet xRg = Application.InputBox("Please select a range to unhide the blank rows", "Kutools for Excel", xAddress, , , , , 8)Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)If xRg Is Nothing Then Exit SubxUpdate = Application.ScreenUpdatingApplication.ScreenUpdating = FalsexRg.EntireRow.Hidden = FalseApplication.ScreenUpdating = xUpdateEnd SubCopy打印前刪除空白行 Kutools for Excel

如果要打印不帶空白行的工作表，建議您使用 刪除空白行 實用程序 Kutools for Excel，然后您可以手動打印工作表。

申請前 Kutools for Excel請 首先下載并安裝.

1。點擊 Kutools > 刪除 > 刪除空白行 > 在選定范圍內/在活動表中/在選定的工作表中/在所有工作表中 根據您的需求。看截圖：

備注：要刪除某個范圍內的空白行，請首先選擇該范圍，然后再應用該功能。

2.然后會彈出一個對話框，告訴您已刪除了多少行，請單擊 OK 按鈕。

現在，所有空白行均被刪除。您可以開始打印工作表。

備注：此實用程序支持撤消 按Ctrl + Z.

如果您想（30-day) 這個實用程序， 請點擊下載，然后按照上述步驟進行操作。