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

Question

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

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

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.