打印日期条件的请教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，这段条件代码是EXCEL合并报表打印单日报表的 Sheet1(5,11).Value = "<记账日期 = # " & Date.Today & "#>" '写入打印条件

如果是按月条件选择，是否要写如下代码，还是怎么写，我写 "<记账日期 = # " & Date.Month & "#>"不是共享成员

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"

主题：打印日期条件的请教