Word landscape printing issue

Hi,

Can someone tell me why this script will not change to landscape when it prints?

- - - - - - - - - - - - - - - -
Const wdDoNotSaveChanges = 0

sFolder = "C:\iEngine\Control\"

Set oArg = WScript.Arguments
sDocument = oArg.Item(0)

sDocument = sFolder + sDocument

With CreateObject("Word.Application")

' to hide Word, set .Visible to False
.Visible = True

' open document & prep to print
.Documents.Open(sDocument)
.Options.PrintBackground = False

.ActiveDocument.PageSetup.Orientation = wdOrientLandscape
.ActiveDocument.PrintOut

' quit without saving any changes
.Application.Quit wdDoNotSaveChanges

End With
- - - - - - - - - - - - - - - - - - - -

Thanks,
Rich (newbie)

Figured it out...

I forgot to define constant wdOrientLandscape as 1