Print Area:last row is variable depending on how many rows

Hi mafiaxts4life
Welcome to the forum.
You may be able to adapt something like this to suit your needs:

Sub pArea()
     
Dim lastrow As Long
Dim rngpaold As String, rngpanew As String
     
'Collect current print range to restore later?
rngpaold = ActiveSheet.PageSetup.PrintArea
     
lastrow = Range("W" & Rows.Count).End(xlUp).Row
rngpanew = "C3:W" & lastrow

ActiveSheet.PageSetup.PrintArea = rngpanew
     
End Sub

Originally Posted by barryleajo

Hi mafiaxts4life
Welcome to the forum.
You may be able to adapt something like this to suit your needs:

Sub pArea()
     
Dim lastrow As Long
Dim rngpaold As String, rngpanew As String
     
'Collect current print range to restore later?
rngpaold = ActiveSheet.PageSetup.PrintArea
     
lastrow = Range("W" & Rows.Count).End(xlUp).Row
rngpanew = "C3:W" & lastrow

ActiveSheet.PageSetup.PrintArea = rngpanew
     
End Sub

Thanks for above....
I have data, and if F10 value is 120, print row upto 120, how?
plz. guide.......