以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 用按钮中加入代码动态改变打印范围,出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130016) |
-- 作者:有点甜 -- 发布时间:2019/1/11 9:47:00 -- 代码和模板都没问题。
加入代码弹出内容看一下 msgbox("<出差起日期 >= #" & qr & "# And 出差止时期 <= #" & zr & "#>" )
对应的,对表格筛选,看筛选结果是什么 Tables("蒋安出差").filter = "出差起日期 >= #" & qr & "# And 出差止时期 <= #" & zr & "#" |
-- 作者:有点甜 -- 发布时间:2019/1/11 11:19:00 -- 你1楼的代码是没问题的。如果打印为空,说明你没有把表数据加载出来。
或者试试
If Forms("出差打印").Opened = True Then |