Definir dinámicamente el área de impresión de una hoja

Es preciso mencionar que el desarrollo de una impresión en las distintas herramientas de Microsoft Office no es igual, cada programa perfila un propio modelo y definición del área de impresión debido a la diversidad de tareas que cada uno realiza y M. Excel no es la excepción; al tratarse de una plantilla de celdas en las que progresivamente se agrega información normalmente uno es ignora o no es consciente de qué cantidad de celdas correspondería al tamaño de la hoja de impresión ( A-1, A-2, A-3, A-4, Oficio, etc.) que tenemos, por tanto lo común es que al culminar el llenado de datos se defina el área de impresión determinando que cantidad de celdas, o cuánta área de celdas queremos que sea impreso en nuestra hoja.

Sin embargo, ¿qué sucede cuando se torna repetitivo el proceso de definir nuestra área de impresión?¿Es posible automatizar dicha definición para cada inicio y termino de tareas?  La respuesta a la primera pregunta es naturalmente no veríamos en un  proceso de desperdicio de tiempo en un tareas, que dada su condición de necesaria se torna repetitivo; luego, sí es posible la automatización mediante el uso de Visual Basic App., para ello se procederá a desarrollar el esquema respectivo para la creación de la macro dinámica correspondiente.

En principio haremos uso de la propiedad PrintArea, el objetivo es que conforme ingresemos datos la macro se retroalimentará para definir nuevamente, cada vez que lo necesitamos, la área de impresión:

---

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
End Sub

---

 

Primero, nótese que el evento se crea bajo el prefijo private que hará referencia que no se mostrará la macros por defecto, el único acceso sería manual, y esto se usa principalmente para macros que afectan directamente a las hojas(Worksheet); luego, nuestro evento se denomina Worksheet_Change y es necesario esta manera pues hace referencia a la siguiente barra :

(Para mayor visualización de la imagen, hacer click en la misma)

Una vez definido en el pliegue de opciones derecho e izquierdo worksheet y change, podemos proceder a insertar el código anteriormente escrito, donde "byval" hacer referencia a la definición de nuestra variable " as range"; y "UsedRange" hace referencia al rango de la celdas que han sido usadas de esta manera cada vez que nosotros hagamos "doble-click" sobre la hoja de trabajo ( donde hayamos insertado nuestra macro), se ejecutará dicha macro y redifinirá dicha área de impresión como en el siguiente ejemplo:

En dicha imagen, el área de impresión está representado por las líneas punteadas alrededor de las celdas con información que deseamos. Si fuera el caso y nosotros necesitamos insertar más datos y ampliar nuestra área de definición quedaría de la siguiente manera:

Como se puede apreciar, automáticamente el recuadro con las lineas puntadas se expande redefiniendo nuestra área de impresión.

Eso sería todo con respecto al uso de una macro dinámica para definir nuestra área de impresión.

Saludos.

Por: Oliver Giancarlo