报表为什么不能打印筛选后子窗体的记录

付谦

此段代码不知错在何处，起不到筛选作用，请帮改一改，能打印子窗体筛选后的记录

Private Sub Label1_Click()
On Error GoTo Err_Label1_Click
Me.聘任子窗体.Requery

    Dim stDocName, strWhere As String

    stDocName = "聘任名册"
    strWhere = Me.[聘任子窗体].Form.Filter

    DoCmd.OpenReport stDocName, acPreview, , strWhere
   
Exit_Label1_Click:
    Exit Sub

Err_Label1_Click:
    MsgBox err.Description
    Resume Exit_Label1_Click
End Sub