Printing a range that is determined at run time

M

Michel Pilon

Hi everyone,

I have a problem with the following code

LINE 1: Dim MyRange As Range
LINE 2: Set MyRange = Range("A7",[A7].End(xlDown))
LINE 3: ActiveSheet.PageSetup.PrintArea = MyRange

LINE 3 does not work. MyRange is not accepted for specifying a range.

Can anyone help me?

Thanks
 
F

FastOneBaz

Range("A7").select

Range(Selection, Selection.End(xlDown)).Select

Selection.PrintOut Copies:=1, Preview:=False, Collate:=Tru
 
B

Bob Phillips

Hi Michel,

Try this

Dim MyRange As Range

Set MyRange = Range("A7:" & Range("A7").End(xlDown).Address)
ActiveSheet.PageSetup.PrintArea = MyRange

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Top