利用宏建立菜单中，如何加入复制粘贴的菜单?

Sub 打印报表()
    DoCmd.RunCommand acCmdPrint

End Sub

Sub 导出Excel()
        DoCmd.RunCommand acCmdOutputToExcel
End Sub
Sub 导出RTF()

        DoCmd.RunCommand acCmdOutputToRTF

End Sub

Sub 全选()
    Dim ctl As Control
    Set ctl = Screen.ActiveControl
    ctl.SelStart = 0
    ctl.SelLength = Len(ctl.text)
End Sub

Sub 复制()
    DoCmd.RunCommand acCmdCopy
End Sub

Sub 粘贴()
    DoCmd.RunCommand acCmdPaste
End Sub

Sub 剪切()
    DoCmd.RunCommand acCmdCut
End Sub

Sub 撤销()
    DoCmd.RunCommand acCmdUndo

End Sub

按照以上内容新建一个模版，接着建立一个自定义工具栏，类型改为弹出式，内容设为以上那些。接着在报表或窗体把快捷菜单栏设为你刚才建立的那个。就可以实现自定义右键。

以上的只是一些常用的命令，利用这种方式你可以写出很多很好的菜单。

好处有二：1，屏蔽掉自身那个右键。2，更美观更实用。