access中一道用vba编程的题，执行宏对象，求帮忙

Question

单击“输出”按钮(名为“btnp”)实现如下功能：首先执行已有的宏对象“mEmp”，打开报表对象“rEmp”并预览；然后将已有的报表对象“rEmp”打印出来；最后关闭当前正在使用的窗体对象“fEmp”。

注意：不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”，不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性，不允许修改程序中已存在的语句。

Answer 1

代码如下：

Private Sub btnp_Click()
   With DoCmd
       .RunMacro "mEmp"
       .OpenReport "rEmp", acViewPreview
       .PrintOut
       .Close acForm, "fEmp"
   End With
End Sub