Dicas - VB.NET Listando as Impressoras Instaladas

Listando as Impressoras Instaladas

Pra visualização do código a baixo, foram utilizados dois componentes:
- Um botão com nome = btn_carregar
- Um combobox com nome = Cmb_Impressoras

Obs.: Antes de iniciar o código propriamente dito, é necessário informar o NameSpace utilizado para trabalhar com as propriedades ligadas a impressora, que habitualmente é declaro no topo do código, chamado System.Drawing.Printing.

Chamada do namespace que trabalha com as propriedades relacionada a impressão

Imports System.Drawing.Printing

Private Sub btn_carregar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btn_carregar.Click

variaveis utilizadas
Dim v_total, v_cont, v_item As Integer
Dim pd As PrintDocument = New PrintDocument
Try

retornar o numero total de impressoras instaladas
   v_total = pd.PrinterSettings.InstalledPrinters.Count
   
varre todas as impressoas instaladas adicionando-as ao combobox 
    With pd.PrinterSettings.InstalledPrinters
          For v_cont = 0 To v_total - 1
              Me.Cmb_Impressoras.Items.Add(.Item(v_cont))
          Next
      End With

seleciona o primeiro item
    Me.Cmb_Impressoras.SelectedIndex = (v_item)
Catch ex As Exception

exibe mensagem de erro cajo aconteça ao inesperado
     MessageBox.Show("Erro de Impressão " + ex.Message)
Finally

libera da memória
     pd.Dispose()
End Try
End Sub

Celso C. Caltabiano