Unidad 51. Cuadros de diálogo (IV)

51.5. Seleccionar impresora.

Esta puede ser la apariencia del cuadro de impresora.

Esta puede cambiar en función de los parámetros de configuración que usemos.

A continuación tenemos un ejemplo de su utilización.

Dim Imprimir As DialogResult ‘ Variable de resultado

’ Definición de los parámetros

DialogoImpresora.AllowSelection = False

DialogoImpresora.AllowSomePages = False

DialogoImpresora.PrintToFile = False

DialogoImpresora.PrinterSettings.Copies = 1

DialogoImpresora.Document = Hoja

Siguiente paso captura del resultado comprobando que la respuesta sea de aceptar.

‘ Captura del resultado

Imprimir = DialogoImpresora.ShowDialog() = DialogResult.OK

Y ya actuar si es correcta.

‘ Actuar en función del resultado

If Imprimir Then Hoja.Print()

Las propiedades más usadas son

AllowSelection

AllowSomePAges

PrintToFile

PrinterSettings

De las que además printersettings alberga en su interior otro juego de parámetros modificables como son:

Copies

Duplex

FromPage, ToPage

IsDefaultPrinter

IsPlotter

IsValid

SupportsColor

Que en su conjunto permite obtener la personalización adecuada a nuestras necesidades de cada momento.

El uso de estas propiedades dependerá de la impresora que haya instalada.

51.6. Seleccionar color.

Como podemos ver en la imagen, el tipo de cuadro a encontrar cambia en función de la versión instalada de Windows, igual que en los objetos anteriores.

La utilización de éste objeto es como sigue:

Dim Color As Color

Dim Aceptar As DialogResult

' Definimos las características

CuadroColor.AllowFullOpen = True

CuadroColor.AnyColor = True

' Asignamos un color por defecto

CuadroColor.Color = Color.Red

CuadroColor.Reset()

CuadroColor.SolidColorOnly = True

' Se visualiza el cuadro y se captura el resultado

Aceptar = CuadroColor.ShowDialog() = DialogResult.OK

' Control del resultado

If Aceptar Then Color = CuadroColor.Color

Las propiedades son:

AllowFullOpen

AnyColor

Color

CustomColors

SolidColorOnly

DialogTitle

Octubre-2010

Pág. 51.4