大家帮忙找错误

不知能这样:

Private Sub 打印报表_Click()

      Dim stDocName, strWhere As String
   stDocName = "报表"
    strWhere = Me.frmExamregister_child.Form.Filter
 '   '在打开报表的同时把子窗体的筛选条件字符串也传递给报表
 '   '这样地话报表也会显示和子窗体相同的记录。
   DoCmd.OpenReport stDocName, acPreview, , strWhere

  ' DoCmd.OpenReport "报表", acPreview, , strWhere
  ' DoCmd.Maximize
End Sub