主题：如何在报表中输出当天的数据

模版不要设置打印条件，可以手工筛选出当天的记录，然后再打印。
 
如果要自动，可以做个按钮，代码：大概就是：
 
 
Dim Book As New XLS.Book(ProjectPath & "Attachments\模版.xls")
Dim fl As String = ProjectPath & "Reports\模版.xls"
Tables("XXX").Filter = "日期= #" & Date.Today & "#"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()