主题：我想打印今天的订单，该怎么办？

1、可以先用代码筛选；

Tables("订单").Filter = "检测时间 >= #" & date.Today & "# and 检测时间 < #" & date.Today.AddDays(1) & "#"

2、可以直接修改模板，3,9是模板条件的设置的单元格位置

Dim Book As New XLS.Book(ProjectPath & "Attachments\模板.xls")
Dim fl As String = ProjectPath & "Reports\模板.xls"

Book.Sheets(0)(3,9).Value = "<检测时间 >= #" & date.Today & "# and 检测时间 < #" & date.Today.AddDays(1) & "#>"
Book.Build()
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()