send
Grupo de Telegram
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
  • 1222 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5283
  • Actividad:
    30%
  • Reputación 28
  • 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: 1486
Ú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: 2266
Ú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: 1064
Último mensaje Julio 26, 2010, 12:19:48 pm
por ANTRAX
Cambiar texto a botones de MsgBox

Iniciado por ANTRAX

Respuestas: 3
Vistas: 5167
Ú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: 1282
Último mensaje Julio 26, 2010, 01:39:27 pm
por ANTRAX