comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Cambiar impresora

  • 0 Respuestas
  • 1346 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5396
  • Actividad:
    36.67%
  • Reputación 31
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« 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. '============= culd_@hotmail.com ===============
  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 »


 

¿Te gustó el post? COMPARTILO!



Como impedir cambiar el tamaño de una ventana redimensionable

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1598
Ú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: 2451
Último mensaje Julio 26, 2010, 11:30:30 am
por ANTRAX
Cambiar el nombre del ordenador (A pura API)

Iniciado por ANTRAX

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

Iniciado por ANTRAX

Respuestas: 3
Vistas: 5660
Último mensaje Agosto 23, 2013, 01:23:19 pm
por [L]ord [R]NA
Cambiar Fecha u Hora del Sistema

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1388
Último mensaje Julio 26, 2010, 01:39:27 pm
por ANTRAX