¿Cómo establecer el área de impresión desde una columna específica hasta la última fila en Excel?
En Excel, de forma predeterminada, el área de impresión está configurada para incluir toda la hoja de cálculo hasta la última fila con datos. Sin embargo, si desea imprimir únicamente las columnas A a C hasta la última fila con datos —excluyendo cualquier contenido situado en columnas posteriores a la C—, como se muestra en la siguiente captura de pantalla, ¿existe alguna forma de lograrlo?
Establecer Área de impresión en la Última fila con datos mediante Imprimir Selección
Establecer Área de impresión en la Última fila con datos mediante VBA
| Una hoja de cálculo con datos que se extienden hasta la columna I | Vista previa de impresión que muestra datos únicamente hasta la columna C |
 |  |
Establecer Área de impresión en la Última fila con datos mediante Imprimir Selección
Para imprimir una selección hasta la última fila con datos, basta con establecer dicha selección como área de impresión antes de imprimir.
1. Mantenga pulsada la tecla Ctrl y seleccione las columnas que desea imprimir. Vea la captura de pantalla:
2. Haga clic en Archivo > Imprimir y, a continuación, seleccione Imprimir Selección en la sección Configuración. Vea la captura de pantalla:
Establecer Área de impresión en la Última fila con datos
Aquí tienes una macro que también realiza esta operación.
1. Active la hoja que va a utilizar, pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones y haga clic en Insertar > Módulo. Vea la captura de pantalla.
2. Pegue el siguiente código en el script del Módulo y pulse la tecla F5 para ejecutarlo.
VBA: Establecer área en Última fila
'UpdatebyExtendoffice20170811
Dim xRg As Range
Dim xRgLRow As Long
Dim xRgAddress As String
On Error Resume Next
xRgAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range：", "KuTools For Excel", xRgAddress, , , , , 8)
xRg.Select
xRgLRow = xRg.SpecialCells(xlCellTypeLastCell).Row
xRgAddress = Left(xRg.Address(1, 1), Len(xRg.Address(1, 1)) - 2)
xRgAddress = xRgAddress & xRgLRow
ActiveSheet.PageSetup.PrintArea = xRgAddress
End Sub
3. Aparece un cuadro de diálogo que le recuerda seleccionar el rango de columnas que desea utilizar. Vea la captura de pantalla:
4. Haga clic en Aceptar y ya tendrá establecida el área de impresión.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos