Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls") Dim fl As String = ProjectPath & "Reports\出库单.xls" Book.Build() '生成细节区 Book.Sheets(0).Rows.RemoveAt(0) '删除第一行,Excel报表的第一行通常是标记行 Book.Save(fl) '保存工作簿 Dim Proc As New Process '打开工作簿 Proc.File = fl Proc.Verb = "Print" '指定动作 Proc.Start()