vba - 如何在打印Word文档时隐藏ActiveX命令按钮？

Question

我有一个 ActiveX 命令按钮，按下该按钮会打开一个用户窗体以允许将数据输入到 Word 文档中。该按钮需要在处理文档时保持可见，但在打印时不可见。

如何仅在打印时隐藏/使其不可见？

与 Excel VBA 中的属性包含“PrintObject”选项不同，Word VBA 不具有此功能。我能做的最好的事情就是在单击按钮后删除按钮，但这并不是我真正想要的。

'Needs to hide button only on printing, not delete it

UserForm2.Show
CommandButton1.Select
Selection.Delete

Answer 1

我假设您在Word中有ActiveX命令按钮，并使用用户表单输入的数据在相应的字段中获取提要，并且您正在关闭用户表单，然后尝试打印文档，并且打印的文件不应该有ActiveX命令按钮在其中

将以下代码粘贴到 CommandButton_Click 事件

Private Sub CommandButton1_Click() 

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

End Sub