Dim Book As New XLS.Book(ProjectPath & "Attachments\日报表.xls")
Dim fl As String = ProjectPath & "Reports\日报表.xls"
Book.Build() '生成细节区
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Verb = "Print"
Proc.Start()