禁止使用Ctrl+P快捷键打印窗体数据

zyp

在窗体的键按下事件中加入代码就可以了

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = acCtrlMask And KeyCode = 80 Then
        MsgBox "不能打印", vbCritical, "友情提示"
    End If
End Sub

zyp

Charline 发表于 2016-5-2 21:14
谢谢您的回复。

我已经在窗体键按下事件中加上这段代码了。

将中间msgbox 这行不要就可以了啊