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.CountVarre 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 WithSeleciona 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)
Finallylibera da memória
pd.Dispose()
End Try
End Sub