Defining Dynamic Print Area

[soultrain000]

Hi Folks,

I am trying to define a dynamic print area in my code but what am I missing?

Sub test()
Dim x As Integer
Dim printx As Range
Dim myrange As Range
x = Range("A1").End(xlDown).Row
Set printx = Range("A1:F" & x).Select
ActiveSheet.PageSetup.PrintArea = printx.Address
End Sub

Thanks.

 

[MrKowz]

Try:

Sub test()
Dim x As Integer
Dim printx As Range
x = Range("A" & Rows.Count).End(xlUp).Row
Set printx = Range("A1:F" & x)
ActiveSheet.PageSetup.PrintArea = printx.Address
End Sub

 

[VoG]

Try

Sub test()
Dim x As Long
x = Range("A1").End(xlDown).Row
ActiveSheet.PageSetup.PrintArea = "A1:F" & x
End Sub