如何根据窗体的内容打印报表？

pwj2009

有2个子窗体。子窗体1 、子窗体2
如何选择子窗体1、自动筛选子窗体2 ，按打印打印出筛选后子窗体2的内容。
.我用了 以下代码不成功，、请高手指点下！！
Dim str As String
            If Forms!主窗体!子窗体2.Form.FilterOn = True Then
                str = Forms!主窗体!子窗体2.Form.Filter
            Else
                str = ""
            End If
        DoCmd.OpenReport "借", acViewPreview, , str, acWindowNormal

pwj2009

yehf 发表于 2011-10-24 10:42
Private Sub Command4_Click()
'       Dim str As String
'            If Forms!主窗体!子窗体2.Form.F ...

谢谢！楼上的兄弟！！！！

pwj2009

沙发自己坐。继续等待高手回答。。！

yehf

Private Sub Command4_Click()
'       Dim str As String
'            If Forms!主窗体!子窗体2.Form.FilterOn = True Then
'                str = Forms!主窗体!子窗体2.Form.Filter
'            Else
'                str = ""
'            End If
  DoCmd.OpenReport "借", acViewPreview, , "名称id=" & Me.子窗体1!ID, acWindowNormal
End Sub