[求助]关闭打印预览的代码

gdfsslec

如题。打开报表预览后，有时候因为没有数据会报错，想加一段代码，遇到错误提示后，关闭预览。

一点通

应该在打开预览报表前处理，不应在出现报错后再处理

tz-chf

nodata事件

Private Sub Report_NoData(Cancel As Integer)
    MsgBox "无数据！", vbExclamation, "注意"
    Cancel = True

End Sub

gdfsslec

谢谢tz-chf版主，让我又学会了一招：无数据事件的处理。

我另加了一段：

On Error GoTo Err

DoCmd.OpenReport "客户对帐单", acPreview
Exit_报表预览_Click:
Exit Sub
Err:
Resume Exit_报表预览_Click

这样就屏蔽了cancel 后出现的出错调试信息。