Dynamic print area

[niall91]

Hi Guys

Having trouble setting a dynamic print area
trying to make this work
but keep coming up with a type mismatch error

Sheets("sheets1").pagesetup.PrintArea = .Range(Cells(1,x),Cells(9, y))

 

[niall91]

what is the value of variable setUpPage when it fails?

Put on line immediately above problem line

MsgBox setUpPage

the value is 10 which would be the correct cell

 

[Yongle]

oops
remove .Address

Bad
.Cells(14, setUpPage + 9)).Address

Good
.Cells(14, setUpPage + 9))

 

[niall91]

oops
remove .Address

Bad
.Cells(14, setUpPage + 9)).Address

Good
.Cells(14, setUpPage + 9))

Still no joy
same Error message
is there another way to do it

 

[Yongle]

Away from PC at the moment
Will look later and update thread then

 

[niall91]

Hey

i got it to work

Cells(1, pagesetup).Resize(14, pagesetup + 9).Copy
Cells(1, pagesetup + 10).Select
ActiveSheet.Paste

 

[Yongle]

Thanks for updating the thread