Buscar en Google

Busca en Todo Vb-Net

Búsqueda personalizada

jueves, 27 de septiembre de 2012

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













No hay comentarios:

Publicar un comentario