访问报告 - 打印预览不会打印

Question

我有一个宏，可以在打印预览中打开报表，并显示当前记录。该报告从该打印预览按钮所在的同一表单中提取信息。

问题是，有时打印按钮会起作用并打印单个报告记录，而有时它会以表单格式打印每条记录。

这是链接到表单中按钮的代码：

Private Sub Print_Record_Click()
'Save and print record

On Error GoTo Err_Msg

CurrentDb.Execute "qryOrderQty", dbFailOnError
DoCmd.RunCommand acCmdSaveRecord

DoCmd.OpenReport "rptWorkOrder", acViewPreview, , "Prod_Num = " & Me!Prod_Num

Exit Sub

Err_Msg:
    MsgBox Err.Description

End Sub

不确定它是否有帮助，但我认为这里有一些情况会导致错误发生。我们将分别在 Report1 和 Form1 之上调用报表和表单。

报告按预期打印：

1. 用户在首页打开数据库
2. 点击首页按钮打开Form1并输入信息
3. 点击打印预览按钮，激活上面的宏
4. 单击功能区中的打印按钮，Report1 打印单个记录

表格打印所有记录：

1. 用户在首页打开数据库
2. 点击首页按钮打开Form2并输入信息
3. 点击Form 2上的按钮打开Form1并输入信息
4. 点击打印预览按钮，上面的激活宏
5. 单击功能区中的打印按钮，Form1 打印所有记录

Answer 1

由于您写道所有记录都以表单格式打印，因此当您按下功能区上的打印按钮时，“Form1”似乎很明显具有焦点。

你可以避免这种情况

• 打开报表时关闭“Form1”
• 使用报表的右键菜单按下打印按钮
• 在“Form1”上创建一个单独的打印按钮，将报表发送到打印机而不进行预览