主题：excel报表问题

模板有问题。

先不用代码，直接通过菜单打印，看看正常否。

如果也不正常，就是模板问题，如果正常，就是你上面的代码有问题。

如果确定代码有问题，肯定就是这三行引起的：

Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(1,31).Value = "<all>" 　　　　　　　　　　　　　　'修改模板打印条件
Sheet(1,0).Value = "<" & vars(User.Group) & ">" 　　　'修改模板细节区表名

这样检查一下，看看你生成的模板是什么样，就知道原因了：

Dim Book As New XLS.Book(ProjectPath & "Attachments\台账.xls")
Dim fl As String = ProjectPath & "Reports\台账.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(1,31).Value = "<all>" 　　　　　　　　　　　　　　'修改模板打印条件
Sheet(1,0).Value = "<" & vars(User.Group) & ">" 　　　'修改模板细节区表名
Book.Save(fl) 　　　　　　　　　　　　　　　　　　　　　'保存工作簿
Dim Proc As New Process 　　　　　　　　　　　　　　　'打开工作簿
Proc.File = fl
Proc.Verb = "Print" 　　　　　　　　　　　　　　　　　　'指定动作
Proc.Start()