Печать дуплекса, где один лист печатается на обратной стороне каждого другого листа в VBA

Question

Итак, первым вопросом будет подтверждение того, что это НЕ что-то, что будет добавлено с использованием PageSetup?

Примерно так:

         With ThisWorkbook.Worksheets(Array(xlsheet, "Jcodes")).PageSetup
            .FitToPagesWide = 1 'Fit on 1 page wide
            .FitToPagesTall = 1 'Fit on 1 page long
            .Orientation = xlPortrait 'Print long ways
            .PrintGridlines = True 'Adds gridlines before print
            .Zoom = False
            .LeftMargin = 5
            .RightMargin = 5
            .TopMargin = 5
            .BottomMargin = 5
         End With

Мой рабочий PageSetup это:

         With xlsheet.PageSetup  
            .FitToPagesWide = 1 'Fit on 1 page wide
            .FitToPagesTall = 1 'Fit on 1 page long
            .Orientation = xlPortrait 'Print long ways
            .PrintGridlines = True 'Adds gridlines before print
            .Zoom = False
            .LeftMargin = 5
            .RightMargin = 5
            .TopMargin = 5
            .BottomMargin = 5
        End With

Я пробовал этот код для PrintOut, но безуспешно ...

    For Each xlsheet In ThisWorkbook.Worksheets
        If (xlsheet.Name <> "Program") And (xlsheet.Name <> "Data") Then
            ThisWorkbook.Worksheets(Array(xlsheet, "Jcodes")).PrintOut Copies:=1, Collate:=False
        End If
    Next xlsheet

Я в основном хочу напечатать рабочий лист "Jcodes" на обратной стороне всех другие рабочие листы. Любые советы или помощь будут оценены!