Построил из фокса в Excel отчет.
Затем делаю PrintPreview. В Windows XP экран предпросмотра
автоматически максимизируется. В Windows Vista он минимизирован
и мигает внизу.

Как заставить его максимизироваться.

(Эксперименты показали, что x.WindowState= -4137 && xlMaximized не помогает)

x=CREATEOBJECT('excel.application')
x.DisplayAlerts =.F.
x.Workbooks.Open(cpath+'www.xls')
s=x.Sheets(1)
s.Cells(3,16).Value = DTOC(DATE())+' '+TIME()
...
x.DisplayAlerts =.T.
x.visible=.t.
x.ActiveWindow.SelectedSheets.PrintPreview
x.visible=.f.
x.quit