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

各位老师：有两个问题求助：

  、这个命令我想在打印前能够让暂停一下，在暂停时能看到打印预览，看完没有错误时再进行打印：

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

proc                             '打印预览
Proc.Verb = "Print"  '指定动作
Proc.Start()

  请各位老师费心 ~！

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