窗体打印问题

Private Sub Command4_Click()
Dim frm As Form
Dim i As Long
Set frm = Me.人员信息表_子窗体.Form
DoCmd.PrintOut acSelection
DoCmd.SetWarnings False
Me.人员信息表_子窗体.SetFocus
For i = 1 To frm.RecordsetClone.RecordCount
    DoCmd.RunCommand acCmdDeleteRecord
Next
DoCmd.RunSQL "DELETE * FROM 部门表 WHERE 部门编号='" & Me.Text0.Value & "'"
End Sub

Private Sub Text0_AfterUpdate()
Dim str As String
str = "True"
If IsNull(Me.Text0.Value) = False Then
    str = str & " and 部门编号='" & Me.Text0.Value & "'"
End If
Me.人员信息表_子窗体.Form.Filter = str
Me.人员信息表_子窗体.Form.FilterOn = True
End Sub