oWorkbook = oExcel.ActiveWorkbook
oSheet = oWorkbook.ActiveSheet
oSheet.PageSetup.Orientation = 2  && xlLandscape

>
>I create reports in excel programitically and it works excelently. However I would like to change the default print layout for one of them so that it automatically prints in landscape.
>

>oleApp = CreateObject("Excel.Application")
>OleApp.Visible = .T.
>OleApp.WorkBooks.Add
>msheet = "Sheet1"
>OleApp.Sheets(msheet).Select
>OleApp.Sheets(msheet).PrintPreview
>

>This code will open excel, create a new sheet and also attempt to do a print preview and give me the lines on the screen to show the boundries of the print page, but it defaults to portrait.
>~M