Using named ranges to set printarea

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

Sub DoPrint(PrintMonth)
Yr = Sheets("Utilities").Range("F17").Value
SheetName = "ManagementAccounts_" & Yr

Application.PrintCommunication = True


    With Sheets(SheetName).PageSetup
                    .PrintArea = PrintMonth
                       .Orientation = xlLandscape
                  
               .FitToPagesWide = 1
         .FitToPagesTall = 1

    End With
 
        
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

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