主题：求助：报表打印前能看到打印预览

1、直接打开Ececl文件，然后点击预览

Dim fl As  String = ProjectPath  &  "Reports\出库单.xls"
 Book.Build() '生成细节区
 Book.Save(fl) '保存工作簿
Dim Proc As  New  Process  '打开工作簿
Proc.File = fl

Proc.Start()

2、使用vba

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

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