¿Cómo imprimir bordes alrededor de cada página en Excel?
Al trabajar con hojas de cálculo grandes que abarcan cientos de páginas, imprimir los datos en un formato claro y profesional se vuelve esencial. Una forma de lograr esto es agregando un borde alrededor de cada página impresa, para que la impresión esté visualmente separada y sea más fácil de leer. Aunque puedes seleccionar manualmente y aplicar bordes al contenido de cada página en Excel, este enfoque es extremadamente lento e impráctico cuando se trabaja con múltiples páginas. Por suerte, existen soluciones más eficientes para imprimir automáticamente bordes alrededor de cada página en Excel. En este artículo, exploraremos varios métodos prácticos para realizar esta tarea, incluyendo opciones integradas y alternativas.
➤ Imprimir bordes alrededor de cada página configurando líneas de cuadrícula
➤ Imprimir bordes alrededor de cada página con un solo clic usando Kutools para Excel
➤ Imprimir bordes alrededor de cada página utilizando automatización mediante macro VBA
Imprimir bordes alrededor de cada página configurando líneas de cuadrícula
Aunque Excel no proporciona una opción dedicada para agregar un borde alrededor de cada página impresa, puedes usar la función Imprimir Líneas de Cuadrícula para simular bordes de página. Esto es rápido y no requiere complementos. Ten en cuenta que esto no creará un contorno grueso de la página — Excel imprime todas las líneas de cuadrícula, y el borde de la página se define visualmente por las últimas líneas de cuadrícula impresas.
Notas:
- Este método funciona mejor cuando tu hoja de cálculo se ajusta a un diseño de cuadrícula regular y no dependes de bordes personalizados pesados.
- Si tu hoja ya utiliza bordes distintivos para tablas, las líneas de cuadrícula impresas pueden chocar visualmente con ellas.
1. Si existen bordes personalizados, elimínalos primero para evitar líneas superpuestas o inconsistentes al imprimir. Selecciona la hoja, luego ve a Inicio > Borde (icono) > Sin Borde para borrar los bordes de todas las celdas seleccionadas:
2. Ve a Diseño de Página > haz clic en el lanzador del cuadro de diálogo Configuración de Página (pequeña flecha en la esquina del grupo) para abrir el cuadro de diálogo Configuración de Página:
3. En Configuración de Página, cambia a la pestaña Hoja y marca Líneas de cuadrícula bajo la sección Impresión para que todas las líneas de cuadrícula (incluidas aquellas en los bordes de la página) se impriman:
4. Haz clic en Vista Previa de Impresión para confirmar el resultado. Al imprimir, cada página muestra un límite rectangular claro formado por las líneas de cuadrícula impresas más externas, simulando un borde de página. Ver ejemplo:
Consejos:
- Si necesitas bordes más gruesos y prominentes, considera agregar bordes exteriores manualmente para el área de impresión o usar una macro para dibujar contornos de página.
- Evita regiones de celdas combinadas/irregulares; pueden romper la continuidad visual de las líneas de cuadrícula impresas.
- Siempre realiza una vista previa antes de imprimir para asegurarte de que la apariencia cumple con tus expectativas.
Descubre la Magia de Excel con Kutools AI
- Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
- Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
- Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
- Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
- Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.
Imprime bordes alrededor de cada página con un solo clic usando Kutools para Excel
Para usuarios que deseen un borde de página con un aspecto más profesional — especialmente en hojas de cálculo con formato complejo o cuando las líneas de cuadrícula son insuficientes — Kutools para Excel ofrece una solución conveniente: la función Agregar Borde a Cada Página. Esta herramienta te permite agregar un borde sólido a cada página imprimible de la hoja de cálculo activa con un solo clic, ahorrando tiempo y garantizando una apariencia consistente en todas las páginas.
Después de instalar Kutools para Excel, sigue estos pasos para agregar bordes a cada página:
1. Activa la hoja donde deseas agregar bordes, luego ve a Empresa > Impresión > Agregar Borde a Cada Página. Ver captura de pantalla:
2. Si aparece un cuadro de diálogo advirtiendo que todos los bordes existentes se eliminarán si continuas, asegúrate de haber guardado tu trabajo o confirmado que sobrescribir los bordes está permitido. Haz clic en Sí para proceder:
Una vez aplicado, cada página de tu hoja de cálculo estará delineada con un borde grueso y claro, lo que hace que la salida impresa se vea organizada y fácil de distinguir. Este método es rápido y minimiza el esfuerzo manual.
Consejos y notas:
- Los bordes existentes serán eliminados de la hoja activa al usar esta opción.
- Si necesitas mantener bordes específicos, considera hacer una copia de seguridad de tu archivo u hoja de cálculo primero.
- Esta opción funciona bien para hojas de cálculo grandes con múltiples páginas de impresión que requieren bordes consistentes y visiblemente claros de página.
Imprime bordes alrededor de cada página usando automatización mediante macro VBA
Si deseas automatizar la adición de un borde alrededor de cada página imprimible — especialmente para tareas recurrentes o diseños personalizados — puedes usar una macro VBA que lea los saltos de página de Excel y dibuje un contorno de página. Esto te da control total sobre el estilo y grosor del borde sin depender de complementos.
Notas:
- La macro traza un borde alrededor de cada página imprimible solo en sus bordes exteriores (superior/izquierdo/inferior/derecho). No sobrescribirá los bordes internos de celda existentes.
- Funciona mejor en hojas bien estructuradas; las celdas combinadas complejas o áreas de impresión inusuales pueden necesitar ajustes menores.
Pasos de operación:
1. Presiona Alt + F11 para abrir el editor Visual Basic para Aplicaciones. Haz clic en Insertar > Módulo para agregar un nuevo módulo.
2. Copia y pega el siguiente código en el módulo:
Sub AddBorderToEachPrintablePage()
Dim ws As Worksheet
Dim LastRow As Long, LastCol As Long
Dim StartRow As Long, EndRow As Long
Dim StartCol As Long, EndCol As Long
Dim vRowBreaks As Variant, vColBreaks As Variant
Dim i As Long, j As Long
Dim oldDisp As Boolean
Dim f As Range
Set ws = ActiveSheet
Application.ScreenUpdating = False
Application.EnableEvents = False
' Check if sheet is empty
Set f = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
If f Is Nothing Then GoTo CleanUp
LastRow = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LastCol = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
' Force refresh of page breaks
oldDisp = ws.DisplayPageBreaks
ws.DisplayPageBreaks = True
' Collect horizontal page breaks (add top and bottom bounds)
vRowBreaks = Array(0)
For i = 1 To ws.HPageBreaks.Count
vRowBreaks = ArrayJoin(vRowBreaks, Array(ws.HPageBreaks(i).Location.Row - 1))
Next i
vRowBreaks = ArrayJoin(vRowBreaks, Array(LastRow))
' Collect vertical page breaks (add left and right bounds)
vColBreaks = Array(0)
For j = 1 To ws.VPageBreaks.Count
vColBreaks = ArrayJoin(vColBreaks, Array(ws.VPageBreaks(j).Location.Column - 1))
Next j
vColBreaks = ArrayJoin(vColBreaks, Array(LastCol))
' Draw only outer borders for each printable page
For i = 0 To UBound(vRowBreaks) - 1
StartRow = vRowBreaks(i) + 1
EndRow = vRowBreaks(i + 1)
For j = 0 To UBound(vColBreaks) - 1
StartCol = vColBreaks(j) + 1
EndCol = vColBreaks(j + 1)
With ws.Range(ws.Cells(StartRow, StartCol), ws.Cells(EndRow, EndCol))
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous: .Weight = xlThick
End With
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous: .Weight = xlThick
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous: .Weight = xlThick
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous: .Weight = xlThick
End With
End With
Next j
Next i
CleanUp:
ws.DisplayPageBreaks = oldDisp
Application.EnableEvents = True
Application.ScreenUpdating = True
If Not f Is Nothing Then
MsgBox "Borders have been added to each printable page!", vbInformation, "AddBorderToEachPrintablePage"
End If
End Sub
Function ArrayJoin(a As Variant, b As Variant) As Variant
Dim temp() As Variant
Dim alen As Long, blen As Long, k As Long
alen = UBound(a) - LBound(a) + 1
blen = UBound(b) - LBound(b) + 1
ReDim temp(0 To alen + blen - 1)
For k = 0 To alen - 1
temp(k) = a(k)
Next k
For k = 0 To blen - 1
temp(alen + k) = b(k)
Next k
ArrayJoin = temp
End Function
3. Regresa a Excel, asegúrate de que la hoja de trabajo objetivo esté activa y ejecuta la macro con F5 (o el botón Ejecutar). La macro detectará los saltos de página y dibujará un borde grueso alrededor de cada bloque de página imprimible.
Consejos:
- Ajusta el estilo/grosor del borde editando las cuatro secciones
xlEdge*(por ejemplo,.Weight = xlMedium, color a través de.Color). - Si se establece un Área de Impresión personalizada, los saltos de página de Excel seguirán dicha configuración; verifica los resultados en Vista Previa de Impresión.
- Guarda tu libro antes de ejecutar macros. Para uso repetido, guárdalo como un archivo habilitado para macros (
.xlsm). - Si no se encuentra contenido, la macro finaliza de forma segura con un mensaje (previene errores en hojas vacías).
Si la macro no se comporta como se espera, verifica si hay celdas combinadas, filas/columnas ocultas o configuraciones de escala inusuales (por ejemplo, 'Ajustar a 1 página de ancho por N páginas de alto'). Puedes refinar los bloques de página cambiando tu Área de Impresión o la configuración de Configuración de Página y volver a ejecutar la macro.
Agregar Borde Alrededor de Cada Página
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos