Print Area

[Claire Jackson]

HELP!

I need a simple macro to print an area of a worksheet which always starts at CELL "F5" and all the way to across to column "Z" but the length of the data will change as it's a pivot table, so print area could be F5..Z12 or could be F5..Z37 etc. etc.

It's not just the pivot table I'm printing, I have some formulas to the right too that are in the area that needs printing (columns J-Z)

If anyone can help that'd be great

 

[Joe4]

Try this:

Sub MySetPrintArea()
    
'   Find last row in column Z with data
    Dim lrow As Long
    lrow = Cells(Rows.Count, "Z").End(xlUp).Row
    
'   Set print area
    ActiveSheet.PageSetup.PrintArea = "$A$2:$Z$" & lrow
    
End Sub

 

[Claire Jackson]

PERFECT - THANK YOU

 

[Joe4]

You are welcome.