Can I define a printarea using a named range

I have the following code trying to define the conditions for a print out

Sub DoPrint(PrintMonth)
Yr = Sheets("Utilities").Range("F17").Value
SheetName = "ManAccs_" & Yr
With Sheets(SheetName).PageSetup
       
  .PrintArea = .Range(PrintMonth)
            .LeftMargin = Application.InchesToPoints(0.7)
                .RightMargin = Application.InchesToPoints(0.7)
                    .TopMargin = Application.InchesToPoints(0.75)
                        .BottomMargin = Application.InchesToPoints(0.75)
                        .HeaderMargin = Application.InchesToPoints(0.3)
                    .FooterMargin = Application.InchesToPoints(0.3)
                .PrintQuality = 600
           .PaperSize = xlPaperA4
End With
        
        
 
        Application.PrintCommunication = True
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

This fails at .PrintArea = .Range(PrintMonth)
with an error "object doesn't support this property or method"
Can someone show me where I've gone wrong?
John