Using named ranges to set printarea

[Osprey3]

I have a worksheet which is divided into 12 monthly areas named like JAN_22. I am trying to write a routine that takes the month, chosen earlier and uses this to select the relevant named range and uses this as the PrintArea. My latest attempt is this :-

Please Login or Register  to view this content.

PrintMonth is one of the named ranges ie Jan_22 or Jul_22.
The attached workbook shows 3 months with named ranges for each of these.
The code above fails at .PrintArea = .Range(PrintMonth).Address.
I hope somebody can point me in the right direction,
John

[romperstomper]

All you should need is:

Please Login or Register  to view this content.

[Osprey3]

Rorya
In the light of your post I changed my DoPrint sub as follows

Please Login or Register  to view this content.

This provided a landscaped print of the right named range but magnified to 6 x A4 sheets. The code had ignored the FitToPagesWide and Tall.
Apart from your contribution the rest of the coding was extracted from a Macro . I am still going wrong can you see where?
John

[romperstomper]

Sorry for the delay, I have been away.

You need to add:

Please Login or Register  to view this content.

for the fittopages options to work.