Access打印报表带出表单，如何无预览高效打印2份带WHERE子句报表？

嘿，我来帮你搞定这个打印问题！你之前遇到的同时打印表单和报表的情况，大概率是代码里误触发了当前表单的打印操作，或者没有明确指定要打印的报表对象。下面是针对你的需求的完整解决方案：

核心解决思路 #

• 明确指定要打印的报表对象，彻底避免误打表单
• 用DoCmd.OpenReport配合acViewNormal直接打印（跳过预览），通过WhereCondition传递筛选条件
• 利用Access自带的打印份数参数，一次性打印2份，比循环调用更高效

修正后的VBA双击事件代码 #

把你原来的txtPrintMe_DblClick事件代码替换成下面的版本，记得替换成你实际的报表名称和筛选条件：

Private Sub txtPrintMe_DblClick(Cancel As Integer)
    Dim strWhereClause As String
    
    ' 这里替换成你的实际筛选条件，比如基于当前数据表行的主键
    ' 注意：如果是文本字段要加单引号，比如 "CustomerID = '" & Me!CustomerID & "'"
    ' 日期字段要用#包裹，比如 "OrderDate = #" & Format(Me!OrderDate, "yyyy-mm-dd") & "#"
    strWhereClause = "OrderID = " & Me!OrderID ' 示例：假设主键是OrderID
    
    ' 直接打印2份指定报表，不预览，带筛选条件
    DoCmd.OpenReport "你的报表名称", acViewNormal, , strWhereClause, acWindowNormal, , 2
    
    ' 取消文本框双击的默认编辑行为，让代码执行更顺畅
    Cancel = True
End Sub

关键细节说明 #

1. 避免误打表单的关键：
   之前你同时打印表单和报表，应该是代码里用了DoCmd.PrintOut（这会打印当前活动的表单），或者没有明确指定报表的视图。现在用DoCmd.OpenReport直接操作报表对象，完全不会触发表单的打印。

2. 快速打印不预览：
   参数acViewNormal告诉Access直接把报表发送到打印机，跳过预览窗口，完全符合你“高效快速打印”的要求。

3. 正确传递WHERE子句：

   • 数值型字段直接拼接（比如示例里的OrderID）
   • 文本型字段要在值前后加单引号，避免语法错误
   • 日期型字段要用#包裹，同时统一日期格式防止识别错误

4. 高效打印2份：
   DoCmd.OpenReport的最后一个参数是Copies，直接设为2就能一次性打印2份，比循环调用两次OpenReport更高效，减少系统和打印机的交互开销。

额外注意事项 #

• 确保你的报表记录源包含WHERE子句里用到的字段，否则筛选条件会无效
• 如果打印机有默认的份数设置，Access的Copies参数会覆盖这个设置，不用担心冲突

内容的提问来源于stack exchange，提问作者Dzintars