25 | 03 | 2017

Fill ComboBox with Printers

 Code below will fill a combobox named (Combo1) with all available Printers. 

 

Public Sub m_GetPrinters(ByRef Combo1 As Object)
'***********************************
'*** Code From VisibleVisual.com ***
'***********************************

Dim pkInstalledPrinters As String
    
     Find all printers installed
     
    For Each pkInstalledPrinters In PrinterSettings.InstalledPrinters

       Combo1.Items.Add(pkInstalledPrinters)
  
    Next pkInstalledPrinters

 ' Set the combo to the first printer in the list

   Combo1.SelectedIndex = 0

End Sub


Login

Sign up now and upload your code to the website.

Help us to continue.....
Statistics
Articles View Hits
2208326
Latest Articles