如何在activereport打印结束之后关闭记录集？？

[鲁班大叔]

我做了一个按钮，一点击就把form的rs传给activereport,预览、打印，但是如何在打印结束时得知结束事件，然后rs.close呢？

[grainrain]

你是不是指这个？
If DataEnvironment1.rsCommand2.State <> adstateclose Then
DataEnvironment1.rsCommand2.Close
End If

[fanpingli]

printer.NewPage
printer.EndDoc
If DataEnvironment1.rsCommand2.State <> adstateclose Then
DataEnvironment1.rsCommand2.Close
End If

[xunxm]

Set ActiveReport1.DataControl1.RecordSet = rs
'* 打印
ActiveReport1.PrintReport True
'* 预览
ActiveReport1.Show vbModal, Me

set rs = nothing