[求助]怎么在报表中打印查询后在子窗体的显示内容？

shallow

我想把查询出来的结果直接在设定好的报表里打印，但一直不成功，打印的还是所有记录，而不是查询出来的结果，大家帮我看看我的VB错在哪？其中，日期查询子窗体是用来显示查询结果的子窗体名称，日期报表是要打印的报表名称。查询也可以正常运行。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝Private Sub 打印预览_Click()
On Error GoTo Err_打印预览_Click

    Dim stDocName, strWhere As String

    stDocName = "日期报表"
    strWhere = Me.日期查询子窗体.Form.FilterOn
    '在打开报表的同时把子窗体的筛选条件字符串也传递给报表，
    '这样地话报表也会显示和子窗体相同的记录。
     DoCmd.OpenReport stDocName, acPreview, strWhere
   
   
Exit_打印预览_Click:
    Exit Sub

Err_打印预览_Click:
    MsgBox Err.Description
    Resume Exit_打印预览_Click
   
End Sub

[此贴子已经被作者于2006-9-29 16:55:26编辑过]

lanchong

? DoCmd.OpenReport stDocName, acPreview,, strWhere

songlili0806

oooo