¿Cómo imprimir bordes alrededor de cada página en Excel?
Al trabajar con hojas de cálculo extensas que abarcan cientos de páginas, imprimir los datos en un formato claro y profesional resulta esencial. Una forma eficaz de lograrlo es añadir un borde alrededor de cada página impresa, lo que garantiza una separación visual clara y mejora la legibilidad. Aunque es posible seleccionar manualmente el contenido de cada página y aplicar bordes en Excel, este método resulta extremadamente lento e inviable cuando se manejan múltiples páginas. Afortunadamente, existen soluciones mucho más eficientes para imprimir automáticamente bordes alrededor de todas las páginas en Excel. En este artículo, exploraremos varios métodos prácticos para conseguirlo, incluyendo tanto opciones integradas como enfoques alternativos.
➤ Imprimir bordes alrededor de cada página configurando las líneas de cuadrícula
➤ Imprimir bordes alrededor de cada página con un solo clic mediante Kutools para Excel
➤ Imprimir bordes alrededor de cada página mediante automatización con macro VBA
Imprimir bordes alrededor de cada página configurando las líneas de cuadrícula
Aunque Excel no ofrece una opción específica para añadir 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. Es rápido y no requiere complementos. Ten en cuenta que no obtendrás un contorno grueso: Excel imprime todas las líneas de cuadrícula, y el borde de la página queda definido visualmente por las últimas líneas de cuadrícula impresas.
Notas:
- Este método ofrece mejores resultados cuando la hoja de cálculo sigue una cuadrícula regular y no depende de bordes personalizados complejos.
- Si la hoja ya utiliza bordes distintivos para las tablas, las líneas de cuadrícula impresas pueden generar un conflicto visual con ellos.
1. Si hay bordes personalizados, elimínelos primero para evitar líneas superpuestas o inconsistentes al imprimir. Seleccione la hoja y vaya a Inicio > Bordes (icono) > Sin bordes para borrar los bordes de todas las celdas seleccionadas:
2. Vaya a Diseño de página > haga clic en el iniciador del cuadro de diálogo Configuración de página (la flecha pequeña en la esquina del grupo) para abrir el cuadro de diálogo Configuración de página:
3. En Configuración de página, cambie a la pestaña Hoja y active la casilla Líneas de cuadrícula en la sección Imprimir para que se impriman todas las líneas de cuadrícula (incluidas las del borde de página):
4. Haga clic en Vista previa de impresión para confirmar el resultado. Al imprimir, cada página mostrará un rectángulo claro formado por las líneas de cuadrícula más externas, simulando un borde de página. Vea el ejemplo:
Consejos:
- Si necesita bordes más gruesos y llamativos, considere añadir manualmente bordes exteriores al área de impresión o utilizar una macro para dibujar contornos de página.
- Evite regiones con celdas combinadas o irregulares, ya que podrían interrumpir la continuidad visual de las líneas de cuadrícula impresas.
- Vista previa siempre antes de imprimir para asegurarse de que el resultado cumple con sus expectativas.
Descubra la magia de Excel con KUTOOLS AI
- Ejecución inteligente: Realice operaciones en celdas, analice datos y cree gráficos con comandos sencillos.
- fórmulas personalizadas: Cree fórmulas a medida para optimizar sus flujos de trabajo.
- Programación en VBA: Escriba e implemente código VBA con facilidad.
- Interpretación de fórmulas: Entienda las fórmulas complejas con facilidad.
- Traducción de texto: Rompa las barreras del idioma directamente en sus hojas de cálculo.
Imprimir bordes alrededor de cada página con un solo clic mediante Kutools para Excel
Para usuarios que busquen un borde de página con un aspecto más profesional —especialmente en hojas con formato complejo o cuando las líneas de cuadrícula no son suficientes—, Kutools para Excel ofrece una solución cómoda: la función Agregar bordes a los saltos de página. Esta herramienta le permite añadir un borde sólido a cada página imprimible de la hoja activa con un solo clic, ahorrando tiempo y garantizando una apariencia uniforme en todas las páginas.
Tras instalar Kutools para Excel, siga estos pasos para Agregar bordes a los saltos de página:
1. Active la hoja en la que desea añadir bordes y vaya a Empresa > Impresión > Agregar bordes a los saltos de página. Vea la captura de pantalla:
2. Si aparece un cuadro de diálogo advirtiendo que todos los bordes existentes se eliminarán si continúa, asegúrese de haber guardado su trabajo o de que acepta sobrescribirlos. Haga clic en Sí para continuar:
Una vez aplicado, cada página de su hoja de cálculo quedará delimitada por un borde grueso y claro, lo que garantiza una impresión organizada y fácil de distinguir. Este método es rápido y reduce al mínimo el esfuerzo manual.
Consejos y notas:
- Los bordes existentes se eliminarán de la hoja de cálculo actual al utilizar esta opción.
- Si necesita conservar bordes específicos, le recomendamos hacer primero una copia de seguridad del archivo o de la hoja de cálculo.
- Esta opción es ideal para hojas de cálculo grandes con múltiples páginas impresas, ya que garantiza bordes de página coherentes y visualmente claros.
Imprimir bordes alrededor de cada página mediante automatización con macro VBA
Si desea automatizar la adición de un borde alrededor de cada página imprimible —especialmente en tareas recurrentes o diseños personalizados—, puede usar una macro VBA que lea los saltos de página de Excel y dibuje un contorno por página. Así tendrá control total sobre el estilo y grosor del borde, sin depender de complementos.
Notas:
- La macro traza un borde exclusivamente en los límites exteriores de cada página imprimible (superior, izquierdo, inferior y derecho), sin sobrescribir los bordes internos de las celdas ya existentes.
- Funciona mejor en hojas bien estructuradas; combinaciones complejas o áreas de impresión poco habituales podrían requerir pequeños ajustes.
Pasos de operación:
1. Pulse Alt + F11 para abrir el editor de Visual Basic para Aplicaciones. Haga clic en Insertar > Módulo para añadir 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. Vuelva a Excel, asegúrese de que la hoja de destino esté activa y ejecute la macro con F5(o mediante 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:
- Ajuste el estilo y grosor del borde editando las cuatro
secciones xlEdge*(por ejemplo,).Weight = xlMedium) y el color mediante.Color. - Si se ha establecido un Área de impresión personalizada, Excel respetará dichos saltos de página; compruebe los resultados en la Vista previa de impresión.
- Guarde su libro antes de ejecutar macros. Si va a usarlo repetidamente, guárdelo como archivo habilitado para macros ()
.xlsm). - Si no se encuentra contenido, la macro finaliza de forma segura mostrando un mensaje (evitando errores en hojas vacías).
Si la macro no funciona como esperas, verifica si hay celdas combinadas, filas o columnas ocultas o ajustes de escalado poco habituales (por ejemplo, «Ajustar a 1 página de ancho por N páginas de alto»). Puedes afinar los saltos de página modificando el área de impresión o la configuración de página y volviendo a ejecutar la macro.
Añadir borde alrededor de cada página
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