用户窗体启动时如何在标签中显示当前打印机？

Question

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

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

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

Answer 1

将您的代码放在用户窗体的Initialize 事件下：

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

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

参考资料：

• Initialize Event.

• Activate, Deactivate Events.