excel-print-out-active-sheet-without-empty-rows

Excel - Print Out Active Sheet Without Empty Rows

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

Excel

  • 1012
  • 486
  • 0
  • 0
Add to collection
© 2021VBAmacros.net

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!


Advertisement

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
Advertisement


Comments
Sort by:
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.
Advertisement
  • Created
    04-Jun-2020
  • Last updated
    04-Jun-2020
Advertisement
VBAmacros.net VBAmacros.net
Code was successfully copied!
VBAmacros.net VBAmacros.net
Please sign in!
VBAmacros.net VBAmacros.net
You've already voted!