Access设置数据为空时不打开报表

在Access报表中，如果里面没有数据，打开报表是空白的。如果没有数据 打印就没有意义了。

如何实现在报表没有数据的情况下，不打开该报表呢？

详细源码：

Private Sub Report_NoData(Cancel As Integer)
    MsgBox "数据为空，不可打印。"
    Cancel = True
End Sub

如果数据表中没有数据

拒绝打开报表，提示错误信息：