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

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

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！