Setting PrintArea by using Named Ranges

[Oren Klaber]

I'm a newbie and I'm having difficulty assigning a named range to a
print area.

Here's my attempt but its not working. It keeps on showing the entire
worksheet as the print area. I've tried many iterations of this concept
but can't seem to solve it. Any thoughts.


Dim rng As Range
Set rng = Range(Application.Names("WT_Souvenir_PrintRange"))
Application.Goto Reference:=rng

Application.StatusBar = "Beginning page setup"

With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$6"
.PrintArea = rng
.CenterFooter = "Childhood Memories"
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = False
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub

 

[Tom Ogilvy]

..PrintArea = rng.Address(external:=True)

 

[Oren Klaber]

Thanks Tom. That solved the problem.

Oren

.PrintArea = rng.Address(external:=True)