Duplex (double-sided) printing VBA Help Needed

[thekidLegion]

Currently I am working on writing a VBA code that not only prints one set print area (page 1) in landscape format, but also prints a second (page 2) print area in portrait orientation. So far i've successfully programed it to print in both views, but I am having trouble combining the code, and having it understand to print each print area on either side of paper.. Any suggestions?

I've tried putting in a simple collelate code in, but yet it seems to have excel print both areas in each format. (i.e. one with both pages in portrait, and another with both in landscape).. Starting to get frustrated!!

Here is the macro code below, where am I going wrong?

Macro1 Macro
'

'
If ActiveSheet.Name <> "Workloads & Commitments" Then 'Insert sheet you want to print this way here
Exit Sub
Else
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.25)
.RightMargin = Application.InchesToPoints(0.25)
.TopMargin = Application.InchesToPoints(0.25)
.BottomMargin = Application.InchesToPoints(0.25) 'Set all settings as desired
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
End With


With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.25)
.RightMargin = Application.InchesToPoints(0.25)
.TopMargin = Application.InchesToPoints(0.25)
.BottomMargin = Application.InchesToPoints(0.25)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
End With
ActiveSheet.PrintOut Collate:=True


End If

End Sub

[thekidLegion]

Bump, in hopes i get some help!!