以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  只打印30天内的记录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69292)

--  作者：cyrollin --  发布时间：2015/6/2 16:55:00 --  只打印30天内的记录 从最新的一笔记录算起30天内的记录打印出来的代码是： Select e.Book.TempLate     Case "XXX模板"         Dim Sheet As XLS.Sheet = e.Book.Sheets(0)         Sheet(3,12).Value = "<日期 <= #" & 30 & "#>"  \'写入打印条件 End Select ---------------------------         Sheet(3,12).Value = "<日期 <= #" & 30 & "#>"  \'写入打印条件 是这样的吗？

--  作者：Bin --  发布时间：2015/6/2 16:56:00 --   Sheet(3,12).Value = "<日期 >= #" & date.today().adddays(-30) & "#>"

--  作者：cyrollin --  发布时间：2015/6/2 17:15:00 --   3Q , BIN