主题：关于窗口按键误触的问题。(详见内容)

打印按钮增加询问即可解决：

Dim Result As DialogResult
Result = MessageBox.Show("您确定要进行打印吗？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    '这里是您的打印代码
End if