How do I print alternate worksheets in Portrait and Landscape?
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
"BIEDW" wrote:
Say I have 10 worksheets.
I want to print #1, #3, #5, ... in Portrait and #2, #4, #6, ... in Landscape.
|