我想做个勾选打印的效果，就是勾选了复选框的，就能打印出来
以下是代码：
Dim ids As String '根据主键，合成筛选条件
For Each r As Row In Tables("数据表").GetCheckedRows
ids = ids & "," & r("_Identify")
Next
Tables("数据表").filter = "姓名 Is not null and _Identify In (" & ids.trim(",") & ")" '根据勾选，以及姓名非空的，做个筛选，好做excel模板套打
'打印代码 ，略----
Tables("数据表").filter = "" '取消筛选，显示所有数据
For Each r As Row In Tables("数据表").rows '把之前勾选的再勾选上（筛选后，复选会失效）
If r("_identify") In ids.trim(",") Then '就这句不对
r.Checked = True
End If
Next
上面红色部分代码不行，请指教
另外，黄色代码，是筛选条件，在excel模板打印里，一般是写<all>来打印全部记录，若想替换为黄色代码，把筛选放进模板里，请问该怎么改?
加好友 
发短信
Post By：2016/5/21 9:34:00 [只看该作者]
