Poner nombre de impresora - VB-MUNDO

GuNA · #1 (**permalink**) 05-09-2007, 10:13:26

Para poner el nombre de la impresora que quiero que imprima, he estado buscando pero no se muy bien como funciona el buscador del foro y en inet he encontrado lo que ya sabia, del showdialog, si alguien tíene alguna idea, gracias.

susio24 · #2 (**permalink**) 05-09-2007, 16:17:04

Hola forer@

otra opción sería el objeto printer y un combo (o lo que quieras) :

1º declaras un objeto printer que te listará todas las impresoras instaladas y las vas cargando en el combo

Código:

    Dim elemPrinter
    
    Me.cboimpresora.Clear
    Me.cboimpresoracocina.Clear
    For Each elemPrinter In Printers
        
        Me.cboimpresora.AddItem elemPrinter.DeviceName
        Me.cboimpresoracocina.AddItem elemPrinter.DeviceName
        
    Next

2º cuando imprimas seleccionas la impresora que está en el combo

Código:

       For Each elemPrinter In Printers
            If ucase(elemPrinter.DeviceName) = ucase(cboimpresoracocina.List(Me.cboimpresoracocina.ListIndex)) Then
                
                Set Printer = elemPrinter
                
            End If
        Next

GuNA · #3 (**permalink**) 06-09-2007, 08:58:34

Muchas gracias yo lo he hecho de la siguiente manera:

Dim TPrinter as Printer

For Each TPrinter In Printers
If tPrinter.Devicename="Nombre Impresora" then 'Aqui pongo el nombre de la impresora que quiero que me ponga
Set Printer=Tprinter
End if
Next

Y va perfecto, elijo la impresora que debe poner en cada momento, si es para tickets o si es para factura, dependiendo el momento
Muchas graciassssssssssssssssssssssssssss!

susio24 · #4 (**permalink**) 06-09-2007, 09:07:15

Hola GuNA,
Me alegro que te funcione, haces exactamente lo mismo que yo lo unico es que yo uso el combo para seleccionar la impresora y la guardo en una tabla de configuracion en la bdd asi puedo cambiar la impresora a mi gusto; como tu lo haces al pasarle el nombre de la impresora a pelo cuando quieras cambiarla tendrás que cambiar el codigo mientras que como lo hice yo solo vas al combo y seleccionas la nueva impresora.

:smt023