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

我想在输出报表的时候只输出当天的数据，如何使用 Date.Today()函数，而不用每天都要手动去输入当天的时间，再去输出报表，实现自动筛选当天的数据。急......

咋没人呢？

如上图设置的话，我每天都要改时间，很麻烦

此主题相关图片如下：qq截图20120803231206.png

案例是输出所有时段的数据，我只要当天的，谢谢您的回答！

模版不要设置打印条件，可以手工筛选出当天的记录，然后再打印。
 
如果要自动，可以做个按钮，代码：大概就是：
 
 
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()

非常感谢，仰慕，学习中......