主题：[求助]excel报表打印浏览

我想实现点击按钮进入打印预览窗口，用VBA方式，如下

Dim fl As  String = ProjectPath  &  "Reports\出库单.xls"

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

App.Visible = True

Ws.PrintPreview

App.Quit

这时预览窗口会缩在任务栏，要鼠标点一下才能展开，能否自动展开呢？

加入这个代码强制显示

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

App.Visible = True

ShowAppWindow("出库单",2)

Ws.PrintPreview

App.Quit