Printing Multiple "Named Ranges" to PDF

[KRE]

I have 52 weeks of reports over 12 monthly tabs. I currently have a print macro and a button assigned to each macro to print the week of the month I'm working on. However I want to be able to Print all 52 named ranges to a PDF with a click of a button. The 1st couple of macros are shown below. My named ranges are PrintArea1, PrintArea2, etc. Is there a way I can string all these macros together in one giant print macro to PDF?


'
' Print1 Macro
'

'
Sheets("dec").Select
Application.Goto Reference:="PrintArea1"
ActiveSheet.PageSetup.PrintArea = "PrintArea1"
Range("h61").Select
End Sub
Sub Print2()
'
' Print2 Macro
'

'
Sheets("dec").Select
Application.Goto Reference:="PrintArea2"
ActiveSheet.PageSetup.PrintArea = "PrintArea2"
Range("h109").Select
End Sub

 

[Logit]

Suggest a consolidation of all ranges to be printed, into a single worksheet. Then print that worksheet to PDF.

 

[KRE]

That would be ideal. But not possible. I mean even if what I showed previously is the only 2 print ranges and they are on two separate tabs. There has to be something you can do in a macro stacking the named ranges like...

Select.PrintArea1
Select.PrintArea2
Print.Pdf

 

[jolivanes]

Re: "But not possible"
What is the reason that it cannot be done? You know what your workbook looks like, we are just guessing.