How do I print alternate worksheets in Portrait and Landscape?

[Guest]

Say I have 10 worksheets.

I want to print #1, #3, #5, ... in Portrait and #2, #4, #6, ... in Landscape.

 

[Guest]

Try

Sub PrintIt()

Dim sht As Worksheet

For Each sht In Worksheets
If sht.Index Mod 2 = 0 Then
sht.PageSetup.Orientation = xlLandscape
Else
sht.PageSetup.Orientation = xlPortrait
End If
sht.PrintOut Copies:=1
Next sht

End Sub

Regards
Rowan

 

[Thief_]

Try this, it is crude but should work:

Sub PrintAltFmt()
Dim Frmt As Boolean

For Each ws In ActiveWorkbook.Worksheets
Frmt = Not Frmt
If Frmt Then
ws.PageSetup.Orientation = xlPortrait
Else
ws.PageSetup.Orientation = xlLandscape
End If
ws.PrintPreview
Next ws
End Sub


--
|
+--Thief_
|

Say I have 10 worksheets.

I want to print #1, #3, #5, ... in Portrait and #2, #4, #6, ... in

Landscape.