Visual Basic - Cambiar impresora predeterminad Windows 8.1

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 1
Ha disminuido su posición en 6 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Cambiar impresora predeterminad Windows 8.1

Publicado por apacheco (65 intervenciones) el 19/09/2018 19:58:49
Buenas tardes.

Desde que comencé con VB6, tengo una rutina para cambiar la impresora predeterminada del sistema, pero con Visual Studio 2008 trabajando en Windows 8.1 y 10 no la cambia.

Lógicamente he cambiado el objeto "Printer" de acuerdo con cada una de la versiones de Visual Studio.

El modulo es:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Function Seleccionar_Impresora(ByVal seleccionar) As Boolean
    Dim x As New PrinterSettings
 
    Try
 
        Seleccionar_Impresora = False
 
        Select Case UCase(seleccionar)
            Case "INFORMES", "FACTURAS"
                imprsele = impinfdn
 
            Case "SIMPLIFICADA", "PRESUPUESTOS"
                imprsele = imptktdn
 
            Case "SISTEMA"
                imprsele = improrig
 
            Case Else
                imprsele = imppdfdn
 
        End Select
 
        x.PrinterName = imprsele
 
        Seleccionar_Impresora = True
 
    Catch ex As Exception


donde seleccionar es la opción de impresora a utilizar para el listado/informe en cuestión y los campos

impinfdn contiene el nombre de la impresora a utilizar para informes y facturas (Din A4),

imptktdn lo mismo para la impresora de tickets ,

improrig la predeterminada del equipo al iniciar el proceso e

imppdfdn la que se utilizará par imprimir Pdf's

¿Porqué el x.PrinterName no recoge el valor que se le pasa?

Gracias de antemano


P.D. tengo la importación de

Imports System.Drawing.Printing
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder