打印报表问题?

请指点   在不预览时能不让它将窗体也打出来吗?

Private Sub 打印报表_Click()
   Dim stDocName As String
   Dim strWhere As String
 Select Case Me.Frame24.Value
   Case 1    '预览
    stDocName = "日报表"    '报表名称
    strWhere = Me.子窗体.Form.Filter   '子窗体
    DoCmd.OpenReport stDocName, acPreview, , strWhere

   Case 2    '不预览
    stDocName = "日报表"
    strWhere = Me.子窗体.Form.Filter
  DoCmd.OpenReport stDocName, acViewNormal, , strWhere

   End Select
 
End Sub