Dim r As Row = Tables("开piao主表").Current
Dim Book As New XLS.Book(ProjectPath & "Attachments\开piao汇总清单.xls") '打开模板
Dim fl As String = "d:/开piao信息/"+(r("客户名称"))+(r("所属年份")) + (r("所属月份")) +"开piao汇总清单.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(1,1).Value = "<[@企业信息,企业名称,0]& [@开piao主表,年,0]&"年"& [@开piao主表,月,0]&"月"& [@开piao主表,客户名称,0] &"开piao汇总"> "
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Verb = "Print" '指定动作
Proc.Start()
到红色这里错误