VBA pdf"print" sammen med print område og 1x1 side

Hej
Jeg kæmper med en makro der skal printe en række ark i en workbook, men den skal kun have et mindre område (samme dog) fra hver ark, og samtidig skal  pdfen kun være på en side.
Her er hvad jeg har forsøgt:
Sub Lav_PDF_på_skrivebord()

stitilfil = Environ("USERPROFILE") & "\Desktop"
   
Dim sh As Worksheet
   
    For Each sh In Sheets
    Select Case sh.Name
    Case Is = "1", "2", "3"
        ActiveSheet.PageSetup.PrintArea = "$A$1:$G$35"
            With ActiveSheet.PageSetup
                .CenterHorizontally = True
                .CenterVertically = True
                .Orientation = xlLandscape
                .PaperSize = xlPaperA3
                .FirstPageNumber = xlAutomatic
                .Order = xlDownThenOver
                .BlackAndWhite = False
                .FitToPagesWide = 1
                .FitToPagesTall = 1
            End With
        sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            stitilfil & "Bonusopgørelse " & sh.Cells(1, 1), Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, OpenAfterPublish:=False
    Case Else
    'No Code executed
    End Select
    Next sh

End Sub

Jeg er med på at jeg kan undvære en række af tingene i min with, men jeg tænkte jeg ville kode lidt generisk :-)

Jeg tror desværre den sætter print area, men vælger så export, fremfor print - eller er jeg galt på den?