Access 2021中如何让报表仅打印表单筛选后的行

嗨，这个问题在Access里其实挺常见的，我给你分享几个实用的解决办法，亲测有效：

• 方法一：直接传递表单的筛选条件
  这是最简单直接的方式，核心思路是把表单当前的筛选规则传给报表。操作步骤如下：

  1. 打开表单的设计视图，找到那个用来打开报表的按钮，右键选择「事件生成器」进入VBA编辑界面
  2. 在按钮的Click事件中添加以下代码：

  Private Sub cmdOpenReport_Click()
      ' 替换成你实际的报表名称
      DoCmd.OpenReport "报表名称", acViewPreview, , Me.Filter, acWindowNormal
  End Sub
  

  这里的Me.Filter就是当前表单激活的筛选条件，把它作为OpenReport方法的第四个参数（WHERE子句）传入，报表就会自动只加载符合筛选规则的记录。

  如果你还希望报表和表单的排序规则保持一致，可以稍微修改代码，把表单的排序属性也传过去：

  Private Sub cmdOpenReport_Click()
      DoCmd.OpenReport "报表名称", acViewPreview, , Me.Filter, acWindowNormal, Me.OrderBy
  End Sub
  

• 方法二：绑定报表到表单的记录集副本
  如果你的表单用了复杂筛选或者自定义记录集，这个方法更稳妥。它直接让报表使用表单当前显示的记录集合：

  1. 同样在按钮的Click事件中添加代码：

  Private Sub cmdOpenReport_Click()
      Dim rpt As Report
      ' 先以隐藏的设计视图打开报表
      DoCmd.OpenReport "报表名称", acViewDesign, , , acHidden
      Set rpt = Reports("报表名称")
      ' 将报表的数据源设为表单当前记录集的副本
      Set rpt.Recordset = Me.RecordsetClone
      ' 切换到预览视图查看效果
      DoCmd.OpenReport "报表名称", acViewPreview
  End Sub
  

  Me.RecordsetClone是表单当前显示记录的副本，包含了所有筛选后的内容，报表用它作为数据源，自然就只会打印你在表单里看到的那些行了。

一些注意事项 #

• 确保报表和表单的数据源（表/查询）是匹配的，字段结构一致，否则可能出现报错
• 如果表单连接的是ODBC链接表，方法一的筛选条件传递通常更高效
• 测试前记得先在表单上设置好筛选并确认显示正确，再点击按钮打开报表验证效果

备注：内容来源于stack exchange，提问作者Álvaro García