cargar impresoras de windows en combo

[guillebomtrasmiti]

alguien sabe como cargar en un combo las impresoras que estén instaladas en windows?¿?

[guillebomtrasmiti]

aporto solución
Public Sub cargagridimpresoras()
Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet

Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text

comados.CommandText = "SELECT * FROM ImpresoraPredeterminada"

adapta2.SelectCommand = comados
adapta2.Fill(datavacio, "ImpresoraPredeterminada")

'MessageBox.Show(adapta2.Fill(datavacio, "IntroduccionDeVentasAhora").ToString)


'aquí cargo el datasource y el datamenber del datagrid
DgImpresora.DataSource = datavacio
DgImpresora.DataMember = "ImpresoraPredeterminada"

End Sub

[Aquaventus]

hola guillebomtrasmiti, lo que tu listas ahi es solo datos que has guardado en tu tabla, la solucion real es :

Código vb:

Imports System
Imports System.Drawing.Printing
 
Public Class Form1
 
    Private Sub Form1_Load( _
        ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim pd As New PrintDocument
        Dim Impresoras As String
 
        ' Default printer    
        Dim s_Default_Printer As String = pd.PrinterSettings.PrinterName
 
        ' recorre las impresoras instaladas
        For Each Impresoras In PrinterSettings.InstalledPrinters
            ListBox1.Items.Add(Impresoras.ToString)
        Next
        ' selecciona la impresora predeterminada
        ListBox1.Text = s_Default_Printer
    End Sub
End Class
 

Fuente : listar impresoras

[guillebomtrasmiti]

tienes razón copie el trozo de código equivocado era este..holaaaa amigooo

Public Sub seleccionaimpresora()
Dim pd As New PrintDocument
Dim Impresoras As String

' Default printer
Dim s_Default_Printer As String = pd.PrinterSettings.PrinterName

' recorre las impresoras instaladas
For Each Impresoras In PrinterSettings.InstalledPrinters
ComboImprGes.Items.Add(Impresoras.ToString)
ComboImpWin.Items.Add(Impresoras.ToString)
Next
' selecciona la impresora predeterminada
LbPredeterminada.Text = s_Default_Printer
End Sub

[Aquaventus]

Ahora si va de lujo! Saludos! .

[guillebomtrasmiti]

lo que me pasa ahora es que quiero que al pulsar un botón se cambie la impresora predeterminada a una que está en un textbox...y no me lo hace....mira el código por si me puedes ayudarrrrrr graciassss

Dim pdoc As New PrintDocument()
Dim defaultPrinter As String = String.Empty
For Each strPrinter As String In PrinterSettings.InstalledPrinters
If strPrinter <> (TextIMPGes.Text) Then
defaultPrinter = TextIMPGes.Text
Exit For
End If
Next
pdoc.PrinterSettings.PrinterName = defaultPrinter
End Sub

[Aquaventus]

Creo que tu error esta aquí :

Código vb:

If strPrinter <> (TextIMPGes.Text) Then
defaultPrinter = TextIMPGes.Text
Exit For
End If
 

Debería ser igual :

Código vb:

If strPrinter.Equals(TextIMPGes.Text) Then
defaultPrinter = TextIMPGes.Text
Exit For
End If
 

Saludos!.

[guillebomtrasmiti]

hacer lo hace bien...pero en windows no cambia...arrggggg

[guillebomtrasmiti]

bueno, he encontrado este código que imprime la que yo tengo indiferentemente de la que tiene windows como predeterminada?, pero saca un panel que indica el número de documentos que no quiero que aparezca...sabes como quitarlo?¿?

Dim pd As New PrintDocument()

With pd.PrinterSettings
' Especifico el nombre de la impresora
' por donde deseo imprimir.
'
.PrinterName = TextIMPGes.Text
' Establezco el número de copias que se imprimirán
.Copies = 1
' Rango de páginas que se imprimirán
.PrintRange = PrintRange.AllPages
If .IsValid Then
pd.Print()
Else
MessageBox.Show("La impresora no es válida.", "Aviso GesDreamtPos")
End If
End With

GRACIASSSSSSSSSSSSSS

[guillebomtrasmiti]

lo tengo
Dim WshNetwork As Object
Try
WshNetwork = CreateObject("WScript.Network")
WshNetwork.SetDefaultPrinter(TextIMPGes.Text)

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try