主题：关闭项目

If DataTables("收购").Find("[打印] = false ") Is Nothing Then
    Return '那么返回
End If
Dim Result As DialogResult
Result = Messagebox.Show("存在打印未打印的记录,确定要关闭项目吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.No Then '如果用户选择否
    e.Cancel = True '取消关闭项目
    Tables("收购").Filter = "[打印] = false " '收购中筛选出打印为空的记录.
    MainTable = Tables("MAIN") '选择收购作为主表.
End If

如何做到关闭项目时，跳过上述项目属性beforcloseproject，直接关闭项目？

可以帮我写写代码吗？