主题：用窗口设计进行模板报表打印

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") & " 项目资金往来汇总表"

已解决，谢谢