访问报告 - 打印预览无法打印

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. 单击表单2上的按钮以打开Form1并输入信息
4. 点击打印预览按钮，激活宏
5. 单击功能区中的“打印”按钮，Form1将打印所有记录

Answer 1

由于您写道所有记录都是以表单格式打印的，因此很明显，＆＃39; Form1＆＃39;按下功能区上的打印按钮时会有焦点。

你可以通过

来避免这种情况

• 结束＆＃39; Form1＆＃39;打开报告时
• 使用报告的右键菜单按下打印按钮
• 在Form1＆＃39;上创建单独的打印按钮。将报告发送到打印机而不预览