Artigos .NET Dicas - VB.NET 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
Nota: 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