VBA Print - combining ranges

[Jasesair]

I have the below VBA that is printing the ranges desired but on separate pages. Does anyone know how I can adjust this so it prints together? Hoping this makes sense - I'm basically wanting to select the columns I want in a table and print the table.

Sub PrintManualEntry2021()
Sheets("2021").Range("a8:c77,ht8:ia77").PrintPreview
End Sub

Not sure if it's possible, but I'd also love the VBA to identify the last row in column C with any data and just print the full range down to that row.

Thanks heaps!

 

[Yongle]

Perhaps use VBA to ...
hide columnsa D:HS
print A8:IA77
unhide columns D:HS

 

[Jasesair]

Thanks Yongle, that thinking was exactly what I needed!

My table data is in rows 8:77. Any idea how to adjust to only print down as far as needed? ie. users will add new data into the next available row so there might be hypothetically rows 50:77 with no data. If there's some way to look down row C to the last entry and only print the range enough to include that last entry, that would be fantastic.

 

[Yongle]

how about

Sub PrintManualEntry2021()
    Dim printRng As Range, hideRng As Range
    With Sheets("2021")
        Set printRng = .Range("A8:IA" & .Cells(.Rows.Count, "C").End(xlUp).Row)
        Set hideRng = .Range("D:HS").EntireColumn
    End With
        
    hideRng.Hidden = True
    printRng.PrintPreview
    hideRng.Hidden = False
End Sub