Excel - Print Out Active Sheet Without Empty Rows

This macro prints the active sheet of a workbook without existing empty rows.

Excel

3798
1928
0
0

Add to collection

1 Open MS Excel.

2 Create a blank workbook.

3 Go to Developer's tab > click on "Visual Basic" button or hit Alt + F11.

4 Go to Insert tab > click on "Module" or hit M.

5 Copy the VBA code from below.

6 Paste the code in the newly created module.

7 Go to Run tab > click on "Run Sub/UserForm" or hit F5.

8 That's it!

Code

'===========================================
' Print Out Active Sheet Without Empty Rows
'===========================================
Sub printOutWithoutEmptyRows()
    ' Set variables
    Dim lng As Long
    ' Use active sheet
    With ActiveSheet
        ' Hide empty rows
        For lng = .UsedRange.Rows.Count To 1 Step -1
            ' Check if row has any values
            If Application.WorksheetFunction.CountA(Rows(lng)) = 0 Then
                ' Hide row
                .Rows(lng).Hidden = True
            End If
        Next lng
        ' Use print preview
        .PrintPreview
        ' Unhide empty rows
        .UsedRange.EntireRow.Hidden = False
    End With
End Sub