Thanks. Works like a charm
now could I make the regular excel window invisble, just show the preview window?
Peter
>Preview, visible, they should be in revert order, I believe (otherwise excel opens the HIDDEN preview dialog and waits for user action):
>o.Visible=.t.
>o.ActiveWindow.SelectedSheets.PrintPreview()
>
>>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
Peter Cortiel