请教老师：
Excel报表可以用下面代码实现打印和预览，但代码合理不合理，请老师看看
Dim Book As New XLS.Book(ProjectPath & "Attachments\报表模板\台账子表模板.xls") '指定模板文件"
Dim fl As String = ProjectPath & "Attachments\报表模板\$$$临时文件.xls" '指定目标文件
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() '生成报表
Book.Save(fl) '保存工作簿
If e.StripItem.Name = "预览" Then
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
Else
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Verb = "Print" '指定动作
Proc.Start()
End If
If FileSys.FileExists(fl) Then
FileSys.DeleteFile(fl,2,2) '则彻底删除之
End If
上面代码中红色部分为什么不一样，一个是0，一个是1，代表才能意思？
如果是word报表 ，可以直接将报表打印出来，或者在word中显示然后再打印，但如何直接用word预览报表？代码如何写？
加好友 
发短信
Post By：2017/8/8 11:48:00 [只看该作者]
