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

如果您的工作表中有多個空白行，通常，當您打印工作表時，空白行也將被打印。 要打印工作表而忽略空白行可以為我們節省紙張，在這種情況下，如何在打印工作表時停止空白行？

使用VBA代碼打印工作表時停止空白行

使用VBA代碼打印工作表時停止空白行

使用以下VBA代碼，您可以在沒有空白行的情況下打印工作表，請執行以下操作：

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

2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。

VBA代碼：打印時停止空白行：

Sub Print_NonBlank_Rows()Updateby ExtendofficeDim xStr As StringDim xRg As RangeDim xHideRg As RangeDim xTxt As StringDim I As LongOn Error Resume NextIf ActiveWindow.RangeSelection.Count > 1 ThenxTxt = ActiveWindow.RangeSelection.AddressLocalElsexTxt = ActiveSheet.UsedRange.AddressLocalEnd IfSet xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)If xRg Is Nothing Then Exit SubApplication.ScreenUpdating = FalseFor I = 1 To xRg.Rows.CountIf Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 ThenIf xHideRg Is Nothing ThenSet xHideRg = xRg.Rows(I)ElseSet xHideRg = Union(xHideRg, xRg.Rows(I))End IfEnd IfNextxHideRg.EntireRow.Hidden = TrueActiveSheet.PrintOut Copies:=1xHideRg.EntireRow.Hidden = FalseApplication.ScreenUpdating = TrueEnd SubCopy

3。 然后按 F5 鍵運行此代碼，然后會彈出一個提示框，提醒您選擇要打印的數據范圍，請參見屏幕截圖：

4。 然后點擊 OK，并且您選擇的范圍已立即打印，沒有空白行。

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel