Dim str1 As String = e.Form.Controls("ComboBox1").Value  \'选项目

Dim Book As New XLS.Book(ProjectPath & "Attachments\\项目资金往来汇总表.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\项目资金往来汇总表.pdf"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim dr As DataRow \'定位行开始
dr = DataTables("统计表A").Find("[项目分类] = \'" & str1 & "\' ")
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("统计表A").FindRow(dr)
    If wz >= 0 Then
        Tables("统计表A").Position = wz
    End If
End If \'定位结束

Book.Build() \'生成报表
Book.SaveToPDF(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()

老师，这个是窗口设计打印模板报表，我用的是通用模板操作，只是项目名称是动态的。

现在要做的是1、如何在报表头上加标题，比如：***项目资金往来汇总表 ，这个***是取自上面变量STR1的。并加上当天日期。求代码，在模板中写还是在窗口事件中写

模板那里，改成  [!表头]

然后改代码 vars("表头") = str1 & " " & format(date.today, "yyyy-MM-dd") & " 项目资金往来汇总表"

已解决，谢谢