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

113 - Establecer y cambiar la impresora predeterminada

Contenido :

Cambiar la impresora con el objeto Printers
Establecer la impresora predeterminada con WMI
Abrir cuadro de diálogo Asistente para añadir impresoras de windows
Enlaces relacionados

Establecer la impresora en nuestro programa.

Aquí se Utiliza el objeto Printers de Visual basic para establecer la impresora que se usará para imprimir desde nuestro programa.

El siguiente código de ejemplo, lista en un Listox las impresoras que hay en windows, y al presionar un CommandButton establece la impresora que se usará para la impresión.

Formulario

formulario para seleccionar la impresora que se usará para poder imprimir desde nuestro programa

Pasos para el ejemplo

Colocar un control ListBox
un CommandButton
un textbox

Luego seleccionar la impresora a usar y escribir un texto de prueba en el textbox

Código fuente en el formulario

Option Explicit ' Colocar un List1 y un Command1 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() If List1.ListIndex <> -1 Then Call Establecer(List1.Text) MsgBox "Se usará la impresora: " & _ Printer.DeviceName & " para imprimir el texto", vbInformation ' imprime el texto de prueba en la impresora seleccionada en List1 Printer.Print Text1 Printer.EndDoc End If End Sub Private Sub Form_Load() Command1.Caption = " Aceptar " Obtener_Impresoras End Sub Public Function Obtener_Impresoras() Dim i As Integer ' recorre las impresoras del sistema y las añade a la lista For i = 0 To Printers.Count - 1 List1.AddItem Printers(i).DeviceName Next End Function Public Function Establecer(Nombre_Impresora As String) Dim Prt As Printer ' Establece la impresora que se utilizará para imprimir For Each Prt In Printers If Prt.DeviceName = Nombre_Impresora Then Set Printer = Prt End If Next End Function

Cambiar la impresora predeterminada con WMI

En el siguiente código se utiliza Wmi ( Windows Management Instrumentatiion ) para cambiar la impresora predeterminada del sistema.

Aquí se listan en un control Listbox las impresoras que haya en el sistema y mediante una simple función que utiliza un objeto de tipo WScript.Network, podemos cambiar y establecer la impresora predeterminada, es decir la que se seleccione de la lista.

El método que establece la Impresora se llama SetDefaultPrinter . Para listar las impresoras en el control List1, se recorre en un For-Each la colección Printer y se agrega el nombre con la propiedad DeviceName

Colocar un control List1 y un Command1 como está en la imagen:

Vista del ejemplo para cambiar la impresora por defecto del sistema

Código en un formulario:

Private Function Establecer_Impresora(ByVal NamePrinter As String) As Boolean On Error GoTo errSub 'Variable de referencia Dim obj_Impresora As Object 'Creamos la referencia Set obj_Impresora = CreateObject("WScript.Network") obj_Impresora.setdefaultprinter NamePrinter Set obj_Impresora = Nothing 'La función devuelve true y se cambió con éxito Establecer_Impresora = True MsgBox "La impresora se cambió correctamente", vbInformation Exit Function 'Error al cambiar la impresora errSub: If Err.Number = 0 Then Exit Function Establecer_Impresora = False MsgBox "error: " & Err.Number & Chr(13) & "Description: " & Err.Description On Error GoTo 0 End Function Private Sub Command1_Click() 'Le enviamos la impresora que se encuentre seleccionada en el control List1 If List1.Selected(List1.ListIndex) Then Establecer_Impresora List1 End If End Sub Private Sub Form_Load() Dim x As Printer, impr As String 'Listamos en el control List1 las impresoras instaladas For Each x In Printers List1.AddItem x.DeviceName Next Command1.Caption = " Seleccionar la impresora y establecer como predeterminada " End Sub

Nota: Con Windows Scripting Host Object Model, además de poder establecer la impresora predeterminada , se pueden realizar algunas otras cosas , como por ejemplo enumerar y obtener las unidades de red como también mapear y eliminar una unidad . y Enumerar , eliminar y agregar impresoras de red

Para ello debemos agregar la referencia anteriormente citada, y hacer referencia a la clase WshNetwork de wsh que contiene dichos métodos

Agregar una impresora mediante el comando shell

Si se quiere desplegar el cuadro de diálogo de windows que permite instalar una nueva impresora en el sistema, se puede hacer una llamada al comando Shell . De esta forma el susuario del programa podrá añadir y configurar manualmente la impresora por medio del asistente de windows.

vista previa de la ventana del asistente de windows para agregar impresora

asistente para agregar una impresora

La llamada para la línea de comandos utilizando la función Shell de VB sería la siguiente:

Shell "rundll32 shell32.dll,SHHelpShortcuts_RunDLL AddPrinter", vbNormalFocus

Recursos vb6 - Enlaces relacionados

Recursos vb.net - Enleaces

Obtener las impresoras del sistema usando PrintDocument

Buscar en Recursos vb