Print Orientation Toggle

[Guest]

I'm trying to write a macro that will allow me to toggle between Portrait &
Landscape modes.

I know this should be simple, but I'm missing something.

Please assist.

 

[William]

Hi Alan

Sub PrintToggle()
With ActiveSheet.PageSetup
If .Orientation = xlPortrait Then
..Orientation = xlLandscape
Else
..Orientation = xlPortrait
End If
End With
End Sub

--
XL2002
Regards

William

(e-mail address removed)

| I'm trying to write a macro that will allow me to toggle between Portrait
&
| Landscape modes.
|
| I know this should be simple, but I'm missing something.
|
| Please assist.

 

[Gord Dibben]

Alan

Sub Toggle_Orient()
With ActiveSheet.PageSetup
If .Orientation = xlLandscape Then
.Orientation = xlPortrait
Else
.Orientation = xlLandscape
End If
End With
End Sub

Gord Dibben Excel MVP
On Mon, 13 Dec 2004 17:05:01 -0800, Alan Tolkoff <Alan