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

时间:2013-09-19 14:28:19

标签: vba printing ms-office commandbutton word-2013

这是我在这里发表的第一篇文章,我将尽量明确:)

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

我希望文档上有一个按钮,它自己打印活动文档。我所做的是按照所述here在“绘图”文本框(插入|文本框)中创建一个打印按钮。

此“打印”按钮必须隐藏,以便在打印时在文档上不可见。

以下是代码:

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

当我在保护模式下单击打印按钮时没有任何反应,当我关闭保护模式时,我收到此错误:

  

运行时错误4641。

     

当前已禁用ToolsProtectDocument语句

总结:

启用保护模式时,我创建的“打印”按钮不起作用。 禁用保护模式后,我收到当前禁用ToolsProtectDocument语句的错误。

我希望有一个可以填写的表格,并从表格中打印出来,而印刷表格上没有可见的打印按钮。

有没有人有线索?

0 个答案:

没有答案