如何传递对组合框的引用？

Question

这是我之前的帖子的延续：How to select a printer for entire job?，我基本上想从我的 Access 数据库中的表单打印一系列报告。

参考此帮助文档：https://msdn.microsoft.com/en-us/library/ee336132(v=office.12).aspx

我正在尝试创建包含活动打印机的组合框，以便临时更改一系列文档的默认打印机。我被它所说的“传递对 ComboBox 控件的引用”的地方绊倒了......如何实现这一点？

这是我到目前为止的代码，其中cboPrinterSelect 是组合框名称：

Private Sub cboPrinterSelect_Load(Cancel As Integer)
    Call GetPrinterList
    ' I'm not sure about this next part either'
    cboPrinterSelect.Value = GetPrinterList.value
End Sub

'***************************************************
Private Sub cboPrinterSelect_AfterUpdate(Cancel As Integer)
    Set Application.Printer = Application.Printers(cboPrinterSelect.ListIndex)
End Sub
'***************************************************

Private Sub GetPrinterList(ctl As Control)
    Dim prt As Printer
    For Each prt In Printers
        ctl.AddItem prt.DeviceName
    Next prt
    ctl = Application.Printer.DeviceName    
End Sub

任何帮助/建议将不胜感激。

编辑：

这是我更新的代码，但仍然抛出错误（在 Andre 的 cmets 中有描述）：

Private Sub Form_Load()
    Call GetPrinterList(Me.cboPrinterSelect)
End Sub

'*********************************************************

Private Sub cboPrinterSelect_AfterUpdate(Cancel As Integer)

Set Application.Printer = Application.Printers(cboPrinterSelect.ListIndex)

End Sub

'***************************************************************

Private Sub GetPrinterList(ctl As Control)

Dim prt As Printer
For Each prt In Printers
    ctl.AddItem prt.DeviceName
Next prt
ctl = Application.Printer.DeviceName

End Sub

Answer 1

第一部分，GetPrinterList()的调用，必须进入form的On Load事件。

Private Sub Form_Load()
    Call GetPrinterList(Me.cboPrinterSelect)
End Sub

应该就这些了。

默认打印机由这一行预先选择：

ctl = Application.Printer.DeviceName

并确保 cboPrinterSelect 的 RowSourceType 为 Value List。

Answer 2

试试下面的代码，它会在你的 User_Form 的 combo_box 中显示所有连接的打印机。

Public Sub GetPrinters()

    ' Use a large array (supports up to 100 printers).
    ReDim result(100) As String
    Dim wshNetwork, allPrinters As Object

    ' Get the network object
    Set wshNetwork = CreateObject("WScript.Network")
    Set allPrinters = wshNetwork.EnumPrinterConnections

    ' Printers collection has two elements for each printer.
    For i = 0 To allPrinters.Count - 1 Step 2
        Print_Series.cboPrinterSelect.AddItem allPrinters.Item(i + 1)
    Next

    ' call your user form and combo box will have all active printers
    Print_Series.Show

End Sub