我看了一下,你位置写错了
Dim Book As New XLS.Book(ProjectPath & "Attachments\1.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\1.xls"
If e.Form.Controls("TextBox1").Text = Nothing Then
MessageBox.Show("No Print Info !")
Else
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(2,5).Value = "<EntDate = # " & e.Form.Controls("TextBox1").Text & "#>" '写入打印条件
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
End If