VBA - print based on the last row

[Jasesair]

I'd like to adjust the below code to print only the rows needed. I'm wanting the print down to the last row in Column C that contains any data. All of my attempts so far have failed unfortunately. Any help would be much appreciated.

Sub PrintManualEntry2021()
Application.ScreenUpdating = False
Worksheets("2021").Unprotect
Worksheets("2021").Columns("HT:IA").EntireColumn.Hidden = False
Worksheets("2021").Columns("D:DD").EntireColumn.Hidden = True
Worksheets("2021").Rows("4:4").EntireRow.Hidden = True

Sheets("2021").Range("a1:ia77").PrintPreview

Worksheets("2021").Columns("HT:IA").EntireColumn.Hidden = True
Worksheets("2021").Columns("D:DD").EntireColumn.Hidden = False
Worksheets("2021").Rows("4:4").EntireRow.Hidden = False
Worksheets("2021").Protect
Worksheets("2021").Calculate
End Sub

 

[MARK858]

Maybe....

    With Sheets("2021")
        .PageSetup.PrintArea = .Range("A1:IA" & .Range("C" & Rows.Count).End(xlUp).Row).Address
        .PrintPreview
    End With

 

[Jasesair]

That's perfect! It works a treat. Thanks for your help.

 

[MARK858]

You're welcome

 

[Jasesair]

Actually, on second glance, it is now causing me some issues. Is there another option to PrintPreview that doesn't adjust the PrintArea? I am currently using a different PrintArea in other VBA for PDFing. It's thrown completely out with this VBA that's shifting the PrintArea.

 

[MARK858]

Try

    With Sheets("2021")
       .Range("A1:IA" & .Range("C" & Rows.Count).End(xlUp).Row).PrintPreview
    End With

although personally I would just reset the PrintArea in the code as you will have to put a separate line with the range to do a PrintOut as it will revert to the set PrintArea once you have previewed.