Set print area and print out

[jgoulart]

How can I set a print area from a known range and then print it. I have tried:

Dim myrange As Range
Workbooks(fname).Worksheets("Invoice").Activate
Set myrange = Workbooks(fname).Worksheets("Invoice").Range("A5:L48")
ActiveSheet.PageSetup.PrintArea = myrange.address

This code errors out on the
Activesheet.pagesetup.printarea = myrange.address

John

 

[jgoulart]

I think part of my problem is that I'm trying to run this code from a userform. Any suggestions about how I can fix this?

 

[Jack in the UK]

Hi

How are you triggering the code with assignment from a button on that userform? try adding another and reset to that script.

Or can you not add a command button outside the sheet and test if its the userform error or is really the code.