Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Setting PrintArea by using Named Ranges
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Setting PrintArea by using Named Ranges
..PrintArea = rng.Address(external:=True)
-- Regards, Tom Ogilvy Oren Klaber wrote in message ... 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Setting PrintArea by using Named Ranges
Thanks Tom. That solved the problem.
Oren "Tom Ogilvy" wrote in message ... .PrintArea = rng.Address(external:=True) -- Regards, Tom Ogilvy Oren Klaber wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Named Ranges | Excel Worksheet Functions | |||
Using named 3-D ranges | Excel Discussion (Misc queries) | |||
Named ranges | Excel Discussion (Misc queries) | |||
Max # of named ranges | Excel Discussion (Misc queries) | |||
Like 123, allow named ranges, and print named ranges | Excel Discussion (Misc queries) |