コンボボックスへの参照を渡すには？

Question

これは私の以前の投稿の続きです：How to select a printer for entire job?、私は基本的に私のAccessデータベースのフォームから一連のレポートを印刷したいと思っています。このヘルプドキュメントを参照

：https://msdn.microsoft.com/en-us/library/ee336132(v=office.12).aspx

私は一時的に一連の文書のデフォルトのプリンタを変更するためには、それに積極的にプリンタとのコンボボックスを作成しようとしています。私はそれが "ComboBoxコントロールへの参照を渡す"と言うところでトリップしました...これはどのように実装されますか？

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 

すべてのヘルプ/アドバイスをいただければ幸いです。cboPrinterSelectは、コンボボックスの名前です

はここで、これまでのところ私が持っているコードです。

EDIT：ここ

はまだエラーを投げている私の更新されたコードは、（アンドレのコメントで説明される）：

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()の呼び出し、に行かなければなりませんのOn Loadイベントのフォームはです。

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

これはすべて欠けているはずです。

デフォルトのプリンタは、このラインで事前に選択され：

ctl = Application.Printer.DeviceName 

そしてcboPrinterSelectが値リストの値集合タイプを持っていることを確認してください。

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