Thanks Yuri,

I'll try that

Peter


>Do you mean, does not allow user to modify, and do not show the sheet itself?
>Then probably this is what you need:
>o.Visible=.t.
>o.ActiveWindow.SelectedSheets.PrintPreview(.f.) && no changes allowed
>o.Visible=.f.
>
>
>>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