Hi I want to switch excel to print preview insetad of the normal view
the following sample code hangs on the printpreview line?

LOCAL o as excel.application
o=CREATEOBJECT('excel.application')

o.Workbooks.Open('G:\vAppsNew\vCPR3\DocDir\ExcelTemplates\ChartofAccountsTemplate.xls')
oRange=o.Range("A6:E6")

o.ActiveSheet.paste()
*delete table headers
o.Range("A6").EntireRow.Delete()
o.activeWorkbook.SaveAs("PeterCortielAccount")
*o.ActiveWindow.SelectedSheets.PrintPreview()
o.Visible=.t.

any ideas why


Thanks

Peter