Office中国论坛/Access中国论坛

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

作者: shallow 时间: 2006-9-30 00:53
标题: [求助]怎么在报表中打印查询后在子窗体的显示内容？
我想把查询出来的结果直接在设定好的报表里打印，但一直不成功，打印的还是所有记录，而不是查询出来的结果，大家帮我看看我的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 时间: 2006-10-11 06:59
? DoCmd.OpenReport stDocName, acPreview,, strWhere

作者: songlili0806 时间: 2008-5-22 09:23
oooo

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)