Sección de códigos , trucos y ejemplos para visual basic

307 - Listar , agregar y eliminar impresora de red

Ejemplo que utiliza Windows Script Host para enumerar las impresoras de red del equipo y también poder aggar una nueva y eliminarla

El siguiente ejemplo utiliza los métodos EnumPrinterConnections , AddWindowsPrinterConnection y RemovePrinterConnection . Estos métodos están disponibles en la clase WshNetwork de Wsh

EnumPrinterConnections es una colección que contiene las impresoras. Para recorrer la colección y enumerar las mismas en un bucle, se utiliza la propiedad Count - 1 . Los items pares dentro de la colección corresponden a los puertos , y los impares al path de la impresora

El método AddWindowsPrinterConnection tiene como parámetro principal el path de la impresora a conectar. por ejemplo

obj_Wsh.AddWindowsPrinterConnection "\\Maquina\nombre de la impresora"

El método RemovePrinterConnection tiene también como parámetro principal el path de la impresora que se va a eliminar. Ejemplo

obj_Wsh.RemovePrinterConnection Path

Formulario de ejemplo para utilizar dichos métodos

Colocar en un formulario un control ListView y tres CommandButton

Vista del Formulario de ejemplo para usar wsh y poder conectar y enumerar las impresoras de red

Código fuente en el formulario

Option Explicit '*************************************************************************** '* Referencias : Agregar la referencia a Windows Script Object Model ' Controles : Un ListView y tres CommandButton '*************************************************************************** ' Sub que enumera las impresoras de red del sistema en el ListView '------------------------------------------------------------------ Private Sub Enumerar_Impresoras() On Error GoTo ErrFunction Dim obj_Wsh As WshNetwork Dim i As Integer On Local Error Resume Next ' Nuevo objeto WshNetwork Set obj_Wsh = New WshNetwork ListView1.ListItems.Clear ' Agrega las impresoras For i = 1 To obj_Wsh.EnumPrinterConnections.Count - 1 Step 2 ListView1.ListItems.Add , , obj_Wsh.EnumPrinterConnections(i) Next Dim j As Integer j = 1 ' Agrega los puertos de las impresoras anteriores For i = 0 To obj_Wsh.EnumPrinterConnections.Count - 1 Step 2 ListView1.ListItems(j).SubItems(1) = obj_Wsh.EnumPrinterConnections(i) j = j + 1 Next 'Elimina la referencia Set obj_Wsh = Nothing Exit Sub ErrFunction: MsgBox Err.Description 'Elimina la referencia Set obj_Wsh = Nothing End Sub ' Función que Agrega '-------------------------------------------- Private Function Agregar_Impresora(Path As String) As Boolean Dim obj_Wsh As WshNetwork Dim i As Integer On Local Error Resume Next ' Nuevo objeto WshNetwork Set obj_Wsh = New WshNetwork ' agrega la impresora de red obj_Wsh.AddWindowsPrinterConnection Path ' Verifica si hubo error If Err.Number = 0 Then Agregar_Impresora = True Else MsgBox "error: " & Err.Description, vbCritical End If Set obj_Wsh = Nothing End Function ' Función que elimina '-------------------------------------------- Private Function Eliminar_Impresora(Path As String) As Boolean Dim obj_Wsh As WshNetwork Dim i As Integer On Local Error Resume Next ' Nuevo objeto WshNetwork Set obj_Wsh = New WshNetwork 'Elimina la impresora de red obj_Wsh.RemovePrinterConnection Path ' Verifica si hubo error If Err.Number = 0 Then Eliminar_Impresora = True Else MsgBox "error: " & Err.Description, vbCritical End If Set obj_Wsh = Nothing End Function ' Botón para enumerar las impresoras '-------------------------------------------- Private Sub Command1_Click() Enumerar_Impresoras End Sub ' Botón para agregar una impresora '-------------------------------------------- Private Sub Command2_Click() Dim ret As Boolean Dim Nombre As String Nombre = InputBox(" Ruta de la impresora de red a agregar ", _ " Añadir impresora de red") If Nombre = vbNullString Then Exit Sub ret = Agregar_Impresora(Nombre) If ret Then MsgBox " Se agregó la impresora " & Nombre, vbInformation End If ' Refresca el ListView Enumerar_Impresoras End Sub ' Botón para eliminar '-------------------------------------------- Private Sub Command3_Click() Dim ret As Boolean Dim Nombre As String Nombre = InputBox(" Ruta de la impresora de red a eliminar ", _ " Añadir impresora de red") If Nombre = vbNullString Then Exit Sub ret = Eliminar_Impresora(Nombre) If ret Then MsgBox " Se eliminó la impresora " & Nombre, vbInformation, " Eliminar impresora" End If ' Refresca el ListView Enumerar_Impresoras End Sub Private Sub Form_Load() With ListView1 ' 2 Encabezados de columnas . El primero es el _ path de la impresora el otro es para el puerto .ColumnHeaders.Add , , " Impresora de red ", 4000 .ColumnHeaders.Add , , " Puerto ", 2000 .GridLines = True .View = lvwReport End With Command1.Caption = " Enumerar impresoras " Command2.Caption = " Agregar Impresora " Command3.Caption = " Eliminar Impresora " End Sub

Recursos visual basic 6.0

Establecer una impresora por defecto

Recursos visual basic.net

Listar las impresoras y la predeterminada

Buscar en Recursos vb