Dim Book As New XLS.Book(ProjectPath & "Attachments\电脑台帐.xls") Dim fl As String = ProjectPath & "Reports\电脑台帐.xls" Book.Build() '生成细节区 Book.Save(fl) '保存工作簿
Dim doc As New PrintDoc() '定义一个报表 doc.PageSetting.Landscape = True '横向打印
Dim Proc As New Process '打开工作簿 Proc.File = fl Proc.Verb = "Print" '指定动作