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

 

 

113 - Establecer y cambiar la impresora predeterminada

<Volver> - Anterior - Siguiente

 

 

 

---

 

 

Dos ejemplos para cambiar la impresora desde visual basic

 

El primer ejemplo, utiliza el objeto Printers de Visual basic para establecer la impresora que se usará para imprimir desde nuestro programa.

El segundo, utiliza Wmi ( Windows Management Instrumentatiion ) para cambiar la impresora predeterminada del sistema

 

Ejemplo 1 - Usando el objeto Printers

 

El siguiente código, 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

 

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

 

---

Ejemplo 2 - Usando Wmi para cambiar la impresora predeterminada

 

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:

 

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

 

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

 

La llamada sería la siguiente:

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

 

Recursos vb6 - Enlaces relacionados

• Cuadro de diálogo Seleccionar impresora y configurar página

Recursos vb.net - Enleaces

• Obtener las impresoras del sistema usando PrintDocument

 

 

Buscar en Recursos vb

---

Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2008 - www.recursosvisualbasic.com.ar