标题：删除功能区菜单后出错，如何删除相关代码？

如标题 我自己设计了菜单，引用的模板，在模板的基础上添加几个功能区。所有开发的功能我不但想停掉，

还想删掉，（没用当然可以删掉，要开发的时候再回系统菜单就可以了。）其中删除了 数据表，管理项目，

打印输出，杂项，四个功能区，剩下日常工作和我自己添加的功能区。

如图：

此主题相关图片如下：214.jpg

可是打开项目的时候会提示出错。

相关错误如下:

此主题相关图片如下：211.jpg

此主题相关图片如下：212.jpg

此主题相关图片如下：213.jpg

我想 应该是在 菜单设计 这里有一个系统事件里面 有一个SystemIdle 事件 有一段代码：

'以下代码用于在打印输出功能区动态显示各种打印选项设置,如果菜单中删除了这些选项,那么应该删除此段代码.
'如果更改了打印输出功能区的名称,或更改了相关功能组及选项的名称,也应该对应修改此段代码.
Dim t As Table = CurrentTable
If Vars("SysUpdatePrintInfo") = True Then
    Vars("SysUpdatePrintInfo") = False
    With t.PrintInfo
        CType(RibbonTabs("Print").Groups("QuickSetting").Items("OnlySelected"), RibbonMenu.CheckBox).Checked = .OnlySelectedRows
        CType(RibbonTabs("Print").Groups("QuickSetting").Items("FitIntoPage"), RibbonMenu.CheckBox).Checked = .FitIntoPage
        CType(RibbonTabs("Print").Groups("QuickSetting").Items("ExtendMemoRow"), RibbonMenu.CheckBox).Checked = .ExtendMemoRow
        CType(RibbonTabs("Print").Groups("QuickSetting").Items("AdjustFontSize"), RibbonMenu.CheckBox).Checked = .AdjustFontSize
        CType(RibbonTabs("Print").Groups("QuickSetting").Items("PrintFixedCols"), RibbonMenu.CheckBox).Checked = .PrintFixedCols
        CType(RibbonTabs("Print").Groups("QuickSetting").Items("WrapMemo"), RibbonMenu.CheckBox).Checked = .WrapMemo
        CType(RibbonTabs("Print").Groups("QuickSetting").Items("PrintTitle"), RibbonMenu.CheckBox).Checked = .PrintTitle
        CType(RibbonTabs("Print").Groups("QuickSetting").Items("PrintHeader"), RibbonMenu.CheckBox).Checked = .PrintHeader
        CType(RibbonTabs("Print").Groups("QuickSetting").Items("PrintFooter"), RibbonMenu.CheckBox).Checked = .PrintFooter
        CType(RibbonTabs("Print").Groups("DirectPrint").Items("DirectFitIntoPage"), RibbonMenu.CheckBox).Checked = .DirectFitIntoPage
        CType(RibbonTabs("Print").Groups("DirectPrint").Items("DirectFitIntoOnePage"), RibbonMenu.CheckBox).Checked = .DirectFitIntoOnePage
        CType(RibbonTabs("Print").Groups("DirectPrint").Items("DirectExtendLastCol"), RibbonMenu.CheckBox).Checked = .DirectExtendLastCol
        CType(RibbonTabs("Print").Groups("DirectPrint").Items("DirectPrintHeader"), RibbonMenu.CheckBox).Checked = .DirectPrintHeader
        CType(RibbonTabs("Print").Groups("DirectPrint").Items("DirectPrintFooter"), RibbonMenu.CheckBox).Checked = .DirectPrintFooter
        CType(RibbonTabs("Print").Groups("DirectPrint").Items("DirectHighLight"), RibbonMenu.CheckBox).Checked = .DirectHighLight
    End With
End If

我想应该是这里，所以删除了这段代码，

可是删不掉，删掉后保存的时候出错，不能保存。

此主题相关图片如下：215.jpg

请问 如何删掉相关功能区，又不提示出错呢？

Dim t As Table = CurrentTable

上面的这行代码不要删除应该就没事了。

好了 谢谢！