UserForm启动时如何在标签中显示当前打印机？

Question

我已经为用户设置了一个VBA表单，用于打印带有选项的报表。我想使用标签在该表单上显示活动打印机。当我启动表单时，它显示活动的打印机文本“默认打印机”。如果我点击它，该标签将只更新到活动打印机。在表单启动时，我无法找到运行该宏标签的方法。

下面的代码是我用来显示活动打印机的代码。我知道它的程序基于点击选项。有一个更好的方法吗？

Private Sub CurrentPrinterLabel_Click()
    CurrentPrinterLabel.Caption = Application.ActivePrinter
End Sub

Answer 1

将您的代码放在UserForm的Initialize事件下：

Private Sub UserForm_Initialize()
    CurrentPrinterLabel.Caption = Application.ActivePrinter
End Sub

或者，如果希望每次激活表单时都更新标签，则可以使用Activate事件。

参考文献：

• Initialize Event。
• Activate, Deactivate Events。