Autor Tema: Impresoras En Combobox (Leído 2633 veces)

erick185 · « **en:** Martes 28 de Marzo de 2006, 06:53 »

Hola

Es posible meter las impresoras instaladas en un combobox, para que se pueda elegir en cual imprimir, si se puede hacer..!

Espero que me ayuden.

Gracias de antemano.

Salu2

ebolo

Hola Erick185, es algo tan sencillo como esto:

Código: Text

 
Private Sub Form Load()
 Dim ctl As Printer
 For Each ctl In Printers
     Me.Combo3.AddItem ctl.DeviceName
 Next
 Set ctl = Nothing
End sub
 
Private Sub Combo3_Click()  'Elegimos impresora
    SetDefaultPrinter (Me.Combo3.List(Me.Combo3.ListIndex))
End Sub
 
 

En un módulo pones:

Código: Text

 
Function SetDefaultPrinter(PrinterName As String) As Boolean
Dim wshNetwork As Object ' New wshNetwork
   On Error GoTo err_SetDefaultPrinter
   Set wshNetwork = CreateObject(&#34;WScript.Network&#34;)
   wshNetwork.SetDefaultPrinter PrinterName
   Set wshNetwork = Nothing
   SetDefaultPrinter = True
err_SetDefaultPrinter:
End Function
 
 

Para saber que Impresora tienes por defecto, puedes usar esta función:

Código: Text

 
Function GetDefaultPrinter() As String
Dim strDefault As String
Dim lngbuf As Long
    strDefault = String(255, Chr(0))
    lngbuf = GetProfileString(&#34;Windows&#34;, &#34;Device&#34;, &#34;&#34;, strDefault, Len(strDefault))
    If lngbuf &#62; 0 Then
       GetDefaultPrinter = Left&#036;(strDefault, InStr(strDefault, &#34;,&#34;) - 1)
    Else
       GetDefaultPrinter = &#34;&#34;
    End If
End Function
 
 

Un saludo.

tiquinho

Claro que es posible

Código: Text

Dim auxImpresora As Printer
 
cbxImpresoras.Clear
For Each auxImpresora In Printers
      cbxImpresoras.AddItem auxImpresora.DeviceName
Next
 
 

Ya está. Despues de esto tendrás los nombres de las impresoras en el combo.

En la colección Printers están todas las impresoras de Windows, con sus propiedades y su mundo particular. Utiliza el ItemData del ComboBox para guardar lo que te interese.

Espero que te sirva,

Un saludo

PD:Qué lento estoy escribiendo, te me has adelantado ebolo

Makko

Este Tema me vino al pelo, yo tb andaba buscando algo asi.
Gracias.!

erick185

Hola

Gracias a to2 por su ayuda, son muy buenos, de antemano gracias.

Salu2

SoloCodigo

Autor Tema: Impresoras En Combobox (Leído 2633 veces)

erick185

Impresoras En Combobox

ebolo

Re: Impresoras En Combobox

tiquinho

Re: Impresoras En Combobox

Makko

Re: Impresoras En Combobox

erick185

Re: Impresoras En Combobox