Configurar opciones de la página – Márgenes de la Hoja

Vamos a continuar con la aplicación de la Propiedad PageSetup que ya vimos en la entrega pasada para cambiar la orientación de página tal y como quedará al momento de imprimirla y en el ejemplo que realizamos cambiamos de Vertical a Horizontal. En esta entrega vamos a cambiar otra de las opciones de visualización de la página al momento de imprimir, se trata de las márgenes y nuevamente con el uso de la Propiedad PageSetup.

Propiedad PageSetup: con el uso de esta Propiedad, podremos modificar los atributos de configuración de la página como por ejemplo, márgenes, orientación, encabezados, área de Impresión, entre otros.

En esta entrega vamos a ver la aplicación de esta propiedad para cambiar el tamaño de las márgenes tal y como se visualizará al momento de la impresión. Tenemos la siguiente información:

Se trata de un listado de personas sencillo; si vamos a la sesión de Imprimir y luego en Vista Previa veremos el ancho de las márgenes de la hoja:

Podemos cambiar el espacio de cada margen desde la programación en Visual Basic for Application; abrimos el editor VBA (Alt + F11) y damos doble clic en la Hoja1 (en este caso) y en el área de edición de código pegamos el siguiente código:

Sub CambiarMargenes()

ActiveSheet.PageSetup.LeftMargin = Application.InchesToPoints(0.5)

ActiveSheet.PageSetup.RightMargin = Application.InchesToPoints(0.5)

ActiveSheet.PageSetup.TopMargin = Application.InchesToPoints(0.5)

ActiveSheet.PageSetup.BottomMargin = Application.InchesToPoints(0.5)

End Sub

Queda de la siguiente manera:

Veamos lo que significa cada código:

Linea 1, Sub CambiarMargenes(): Indica el inicio de la macro

Linea 2, ActiveSheet.PageSetup.LeftMargin = Application.InchesToPoints(0.5): con esta instrucción estamos activando del Objeto ActiveSheet la Propiedad PageSetup con la cual podemos modificar varias opciones de visualización de la hoja al momento de imprimir y en este caso se trata del margen Izquierdo dando el valor en la medida de Excel en 0.5

Las líneas 3, 4 y 5 realizan lo mismo para el margen derecho, superior e inferior respectivamente

Última Línea, End Sub: indica el final de la macro

Probemos ejecutando esta macro con F5 y al ver la visualización de Impresión se verá el cambio de las márgenes:

Descargar archivo.

MÁS SOBRE

Gerencie.com en su correo.

Suscríbase y nosotros colocaremos en su bandeja de entrada la mejor información que generamos diariamente.

Siéntase libre de opinar

En Gerencie.com está permitido opinar, criticar, discutir, controvertir, disentir, etc., pero debe hacerlo sin insultar y sin ofender a otros.

Información legal aplicable para Colombia.