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。