printing on backpage, but changing the orientation to landscape

I have the below code to print specific pages on the backside, it works, but if someone can help me code it to print "map" in landscape orientation (ONLY 'map" sheet in orientation

Private Sub BackPrint()
Dim sCurrentPrinter As String
Dim ws As Worksheet
Dim sheetsToPrint1, sheetsToPrint2, sheetsToPrint3, sheetsToPrint4 As Variant


sCurrentPrinter = Application.ActivePrinter

Application.ActivePrinter = "MF220 Series on Ne02:"

IgnorePrintAreas:=False

'move maps sheet to end
Sheets("Map").Move After:=Sheets(Sheets.Count)

Dim sheetsToPrint As Sheets

Set sheetsToPrint1 = Worksheets(Array("QUOTE", "Map"))
Set sheetsToPrint2 = Worksheets(Array("YYYYY", "Map"))
Set sheetsToPrint3 = Worksheets(Array("TTTTT", "Map"))
Set sheetsToPrint4 = Worksheets(Array("Customer"))

    
  For Each ws In sheetsToPrint1
        With ws.PageSetup
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1
        End With
    Next ws
    
End Sub

Right now its printing on on the backside, and it working fine, but if someone can help me change the orientation to Landscape on "Map".. and Sheets (QUOTE, TTTTT, YYYYY, Customer) in portrait