I have set the Print Area in my WorkSheet to cover the area I need, but the
1st page is in LANDSCAPE and the page following is PORTRAIT.

Is there a way I can have this set to print automatically setting the 1st
page and 2nd pages to the required style?

Corey....

With ActiveSheet
..PageSetup.Orientation = xlLandscape
..PrintOut From:=1, To:=1
..PageSetup.Orientation = xlPortrait
..PrintOut From:=2, To:=2
End With

Perhaps this will help...

I have a 6 sheet workbook:
With Sheet1 named "Printing_Specs" (W/O the Quotes)
and in Range B7:C11 I have the following:

Opinion P (< P = Potrait L = Landscape)
Balance Sheet L
Income Statement P
Cash Flow L
Notes to Statements P

The following macro works fine for me:

Sub multi_print()
Dim rng As Range
Dim i As Integer
Set rng = Worksheets("Printing_Specs").Range("B7:B11")
For i = 2 To rng.Count + 1
With Worksheets(i)
If rng(i).Offset(0, 1).Value = "P" Then
.PageSetup.Orientation = xlPortrait
.PrintPreview 'Change to PrintOut to bypass Preview
Else
.PageSetup.Orientation = xlLandscape
.PrintPreview 'Change to PrintOut to bypass Preview
End If
End With
Next
End Sub

Hope this helps,
Jim May


"Corey" wrote in message
:

I have set the Print Area in my WorkSheet to cover the area I need, but the
1st page is in LANDSCAPE and the page following is PORTRAIT.

Is there a way I can have this set to print automatically setting the 1st
page and 2nd pages to the required style?

Corey....