主题：生成的excel报表，点预览在xp下能正常显示，在win7下在任何栏里，要再次点一下 才能正常显示在屏幕中 ，能否跟xp一样一点预览直接显示在屏幕中？

参考

http://www.foxtable.com/webhelp/scr/2713.htm

我这样测试没问题

Dim App As New MSExcel.Application
App.Visible = False
App.Caption = "汉思软件"
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
ShowAppWindow("汉思软件",2)
Ws.PrintPreview
App.Quit