如何在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 Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	Dim I As Long
	On Error Resume Next
	xAddress = Application.ActiveWindow.RangeSelection.Address
	Set 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 Sub
		If xRg.Areas.Count > 1 Then
			MsgBox "Don't support multiple ranges", , "Kutools for Excel"
			Exit Sub
			End If
			xUpdate = Application.ScreenUpdating
			Application.ScreenUpdating = False
			For I = 1 To xRg.Rows.Count
				xRg.Rows(I).EntireRow.Hidden = (Application.CountA(xRg.Rows(I)) = 0)
			Next
			Application.ScreenUpdating = xUpdate
		End Sub

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

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

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

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

Sub UnhideRows()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	On Error Resume Next
	xAddress = Application.ActiveWindow.RangeSelection.Address
	Set 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 Sub
		xUpdate = Application.ScreenUpdating
		Application.ScreenUpdating = False
		xRg.EntireRow.Hidden = False
		Application.ScreenUpdating = xUpdate
	End Sub

在使用Kutools for Excel打印之前刪除空白行

如果要打印沒有空白行的工作表，建議您使用 刪除空白行 的效用 Excel的Kutools，然後您可以手動打印工作表。

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

備註：要刪除某個範圍內的空白行，請先選擇此範圍，然後再應用該功能。

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

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

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

最佳辦公生產力工具

🤖	Kutools 人工智慧助手：基於以下內容徹底改變數據分析： 智慧執行   |  生成代碼  |  建立自訂公式  |  分析數據並產生圖表  |  呼叫 Kutools 函數...
	熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
	超級查詢: 多條件VLookup  |   多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
	高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
	欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
	特色功能: 網格焦點   |  設計圖   |   大方程式酒吧   |  工作簿和工作表管理器   |  資源庫 （自動文字）   |  日期選擇器   |  合併工作表   |  加密/解密單元格   |  按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 （過濾粗體/斜體/刪除線...）...
	前 15 個工具集:  12 文本 工具 (添加文本, 刪除字符，...）   |   50+ 圖表 類型 (甘特圖，...）   |   40+ 實用 公式 (根據生日計算年齡，...）   |   19 插入 工具 (插入二維碼, 從路徑插入圖片，...）   |   12 轉化 工具 (數字到單詞, 貨幣兌換，...）   |   7 合併與拆分 工具 (高級合併行, 分裂細胞，...）   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能，體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

閱讀更多... 免費下載...

---

Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆

• 在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
• 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
• 將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！

閱讀更多... 免費下載...