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()