Cambiar impresora

  • 0 Respuestas
  • 1876 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5635
  • Actividad:
    56.67%
  • Country: ar
  • Reputación 37
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email

Cambiar impresora

  • en: Julio 26, 2010, 04:12:32 pm
Esta funcion sirve para cambiar la impresora del objeto Printer, conociendo el nombre por la cual se quiere cambiar.
Devuelve FALSE si no pudo cambiarla por que no la encontro.
Devuelve TRUE si se cambio correctamente.

IMPORTANTE: NO CAMBIA LA IMPRESORA PREDETERMINADA, SOLAMENTE LA DEL OBJETO PRINTER.

Código: Visual Basic
  1. '========== Codigo realizado por CULD ==========
  2. '============= [email protected] ===============
  3. 'Esta funcion cambia el objeto printer por la
  4. 'impresora que deseamos. Obviamente tenemos que
  5. 'conocer el nombre de la misma e ingresarlo correctamente
  6. '===============================================
  7. Public Function CambiarImpresora(Nombre As String) As Boolean
  8. Dim Impresora As Printer 'creo un objeto para la impresora
  9.  
  10. For Each Impresora In Printers 'recorro todas las impresoras disponibles
  11.    If UCase(Impresora.DeviceName) = UCase(Nombre) Then 'verifico si la impresora actual es la que quiero
  12.        Set Printer = Impresora 'como encontre la impresora la asigno al objeto printer
  13.        CambiarImpresora = True 'informo que se cambio correctamente
  14.    End If
  15. Next
  16. CambiarImpresora = False 'no se encontro la impresora asi que no se pudo asignar
  17. End Function
« Última modificación: Mayo 12, 2014, 03:25:35 pm por Expermicid »


 

Como impedir cambiar el tamaño de una ventana redimensionable

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2468
Último mensaje Julio 26, 2010, 11:33:48 am
por ANTRAX
Como cambiar de color una columna de MSFlexgrid

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3523
Último mensaje Julio 26, 2010, 11:30:30 am
por ANTRAX
Cambiar Fecha u Hora del Sistema

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2161
Último mensaje Julio 26, 2010, 01:39:27 pm
por ANTRAX
Cambiar el nombre del ordenador (A pura API)

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1893
Último mensaje Julio 26, 2010, 12:19:48 pm
por ANTRAX
Cambiar texto a botones de MsgBox

Iniciado por ANTRAX

Respuestas: 3
Vistas: 7840
Último mensaje Agosto 23, 2013, 01:23:19 pm
por [L]ord [R]NA