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

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

因为你写的所有记录都是以表格格式打印的，所以很明显，当你按下带状上的打印按钮时，'Form1‘就有了焦点。

你可以通过

• 打开报表时关闭“Form1”
• 使用报表的右键单击菜单按“打印”按钮
• 在“Form1”上创建单独的打印按钮，将报表发送到打印机，而无需预览报表