Listar impresores y marcar el predeterminado

Listar impresores y marcar el predeterminado

En este ejemplo veremos como listar las impresoras instaladas en tu OS y marcar la impresora definida como predeterminada, asi tambien se mostrará el uso del control listview para agregar iconos a cada item del control mencionado.

Para tal efecto es necesario agregar al proyecto el control llamado ImageList que sera el contenedor de los iconos que utilizaremos en el ListView

En teoría lo que se pretende es: Listar los impresores encontrados y añadir un icono en el ListView para representar cada uno de ellos.

Controles necesario

ImageList para añadir iconos

ListView1 donde se listarán los impresores

Una vez adicionados los controles adicionas las imagenes que estaran disponibles en el ImageList, basados en el indice de cada una se seleccionarán para adicionar a cada item del ListView

Ok. vamos al codigo

Espacio de nombre 

Imports System

private DFPrinter as string

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

' Asocioamos el ImageList al ListView para obtener los iconos

 ListView1.StateImageList = ImageList1

 ImpresorasInstaladas()

Private Sub ImpresorasInstaladas()

        Dim pdoc As New PrintDocument

        Dim Impresoras As String

        ' Default printer      

        DFPrinter = pdoc.PrinterSettings.PrinterName

        ' recorre las impresoras instaladas  

        For Each Impresoras In PrinterSettings.InstalledPrinters

            ListView1.Items.Add(Impresoras.ToString)

        Next

       

        ListView1.Focus()

        For x As Integer = 0 To ListView1.Items.Count - 1

            If ListView1.Items(x).Text = DFPrinter Then

                ListView1.Items(x).StateImageIndex = 1 'Indice de icono

            Else

                ListView1.Items(x).StateImageIndex = 0 'Indice de icono

            End If

        Next

    End Sub

Resultado