Vba 隐藏命令按钮通过已创建的按钮打印文档

这是我在这里的第一篇帖子，我会尽可能清楚：）

我正在创建一个Microsoft Word表单供用户填写，此表单受保护，只有表单可以填写文档的其余部分受密码“mypass”保护

我想在文档上有一个按钮，它自己打印活动文档。我所做的是在“绘图”文本框（插入|文本框）中创建一个打印按钮，如前所述

此打印按钮必须隐藏，以便打印时在文档上不可见

代码如下：

Private Sub CommandButton1_Click()

If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect Password:="mypass"
End If

With ActiveDocument
    .Shapes(1).Visible = msoFalse
    .PrintOut Copies:=1
    .Shapes(1).Visible = msoTrue
End With

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, Password:="mypass"

End Sub

Private子命令按钮1\u单击（）
如果是ActiveDocument.ProtectionType wdNoProtection，则
ActiveDocument.Unprotect密码：=“mypass”
如果结束
使用ActiveDocument
.Shapes（1）.可见=msoFalse
.打印件：=1份
.Shapes（1）.Visible=msoTrue
以
ActiveDocument.Protect类型：=wdAllowOnlyFormFields，密码：=“mypass”
端接头

当我在保护模式下单击“打印”按钮时，什么也不会发生，当我关闭保护模式时，我会出现以下错误：

运行时出现错误4641

ToolsProtectDocument语句当前已禁用

总结如下：

启用保护模式时，我创建的打印按钮不起作用。 禁用保护模式时，我会收到错误消息，即ToolsProtectDocument语句当前已禁用

我想有一个处理过的表格，可以填写和打印的形式本身没有打印按钮是可见的打印形式

有人有线索吗