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:
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
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 = FalseSelect Case UCase(seleccionar)
Case "INFORMES", "FACTURAS"
imprsele = impinfdnCase "SIMPLIFICADA", "PRESUPUESTOS"
imprsele = imptktdn Case "SISTEMA" imprsele = improrigCase Else
imprsele = imppdfdnEnd Select
x.PrinterName = imprsele
Seleccionar_Impresora = TrueCatch 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
0