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

Atrás  Inicio  Adelante






Página inicial  Cursos Informática Gratuitos

Síguenos en:   Facebook       Sobre aulaClic            Política de Cookies