Set Print Area

[Firesword]

Hi All

I need some help in setting the print area on a worksheet that is not the active sheet.

I have a data sheet (sheet10) where the user is putting in all the data that will be used to print off a form which is sheet11 (I use the code name in case the user changes the name). The data is variable.

Sheet11.PageSetup.PrintArea = Sheet11.Range(Cells(1, "A"), Cells(llLastRow, "D")).Address

The code above works if i'm on sheet11, but will not work when I'm on sheet10, do I have to goto sheet11 (which I try not to do) then run the code or is there a way to set this from sheet 10?

Thanks

Simon

 

[Peter_SSs]

Try this instead of that line

Sheet11.PageSetup.PrintArea = "A1:D" & llLastRow

 

[Firesword]

Hi Peter

Lol I was close.

Thanks for such a quick reply.

 

[Peter_SSs]

You're welcome.

Your code would have worked if you had prefaced every range with the sheet, like this

Sheet11.PageSetup.PrintArea = Sheet11.Range(Sheet11.Cells(1, "A"), Sheet11.Cells(llLastRow, "D")).Address

But of course the direct text is simpler.

 

[Firesword]

You're welcome.

Your code would have worked if you had prefaced every range with the sheet, like this

Sheet11.PageSetup.PrintArea = Sheet11.Range(Sheet11.Cells(1, "A"), Sheet11.Cells(llLastRow, "D")).Address

But of course the direct text is simpler.

I missed that (I need to kick myself I knew that). I'm sorry to have troubled you, I've also made a note about your code too.

Thanks again.