Come stampare bordi intorno a ogni pagina in Excel?
Quando si lavora con grandi fogli di lavoro che si estendono per centinaia di pagine, stampare i dati in un formato chiaro e professionale diventa essenziale. Un modo per ottenere questo è aggiungendo un bordo intorno a ogni pagina stampata, in modo che la stampa sia visivamente separata e più facile da leggere. Anche se puoi selezionare manualmente e applicare bordi al contenuto di ogni pagina in Excel, questo approccio è estremamente dispendioso in termini di tempo e poco pratico quando si ha a che fare con più pagine. Fortunatamente, esistono soluzioni più efficienti per stampare automaticamente bordi intorno a ogni pagina in Excel. In questo articolo, esploreremo diversi metodi pratici per svolgere questa operazione, inclusi sia le opzioni integrate che gli approcci alternativi.
➤ Stampa bordi intorno a ogni pagina impostando le linee di griglia
➤ Stampa bordi intorno a ogni pagina con un clic usando Kutools per Excel
➤ Stampa bordi intorno a ogni pagina utilizzando l'automazione tramite macro VBA
Stampa bordi intorno a ogni pagina impostando le linee di griglia
Anche se Excel non fornisce un'opzione dedicata per aggiungere un bordo intorno a ogni pagina stampata, puoi usare la funzionalità Stampa Linee di Griglia per simulare i bordi delle pagine. Questo metodo è veloce e non richiede componenti aggiuntivi. Tieni presente che non creerà un contorno di pagina in grassetto — Excel stamperà tutte le linee di griglia, e il bordo della pagina sarà definito visivamente dalle ultime linee di griglia stampate.
Note:
- Questo metodo funziona meglio quando il tuo foglio di lavoro si adatta a una griglia regolare e non dipende pesantemente da bordi personalizzati.
- Se il tuo foglio utilizza già bordi distintivi per le tabelle, le linee di griglia stampate potrebbero entrare in conflitto visivo con essi.
1. Se ci sono bordi personalizzati, rimuovili prima per evitare linee sovrapposte o inconsistenti nella stampa. Seleziona il foglio, quindi vai su Home > Bordo (icona) > Nessun Bordo per cancellare i bordi di tutte le celle selezionate:
2. Vai su Layout di Pagina > fai clic sul pulsante di avvio della finestra di dialogo Imposta Pagina (freccia piccola nell'angolo del gruppo) per aprire la finestra di dialogo Imposta Pagina:
3. Nella finestra di dialogo Imposta Pagina, passa alla scheda Foglio e seleziona Linee di Griglia sotto la sezione Stampa, in modo che tutte le linee di griglia (compresi quelle ai bordi della pagina) vengano stampate:
4. Fai clic su Anteprima di Stampa per confermare il risultato. Quando stampi, ogni pagina mostrerà un confine rettangolare chiaro formato dalle linee di griglia più esterne, simulando un bordo di pagina. Vedi esempio:
Consigli:
- Se hai bisogno di bordi più spessi e prominenti, considera di aggiungere bordi esterni manualmente all'area di stampa o di usare una macro per disegnare i contorni delle pagine.
- Evita celle unite/regioni irregolari; potrebbero interrompere la continuità visiva delle linee di griglia stampate.
- Effettua sempre un'anteprima prima di stampare per assicurarti che l'aspetto corrisponda alle tue aspettative.
Sblocca la Magia di Excel con Kutools AI
- Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
- Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
- Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
- Interpretazione delle Formule: Comprendi facilmente formule complesse.
- Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.
Stampa bordi intorno a ogni pagina con un clic usando Kutools per Excel
Per gli utenti che desiderano un bordo di pagina dall'aspetto più professionale — specialmente nei fogli di lavoro con formattazione complessa o quando le linee di griglia non sono sufficienti — Kutools per Excel offre una soluzione conveniente: la funzionalità Aggiungi Bordi a Ogni Pagina. Questo strumento ti consente di aggiungere un bordo solido a ogni pagina stampabile del foglio di lavoro attivo con un solo clic, risparmiando tempo e garantendo un aspetto coerente su tutte le pagine.
Dopo aver installato Kutools per Excel, segui questi passaggi per aggiungere bordi a ogni pagina:
1. Attiva il foglio in cui desideri aggiungere i bordi, quindi vai a Azienda > Stampa > Aggiungi Bordi a Ogni Pagina. Vedi screenshot:
2. Se appare una finestra di dialogo che avverte che tutti i bordi esistenti verranno eliminati se continui, assicurati di aver salvato il tuo lavoro o confermato che sovrascrivere i bordi è accettabile. Clicca Sì per procedere:
Una volta applicato, ogni pagina del tuo foglio di lavoro sarà delineata con un bordo chiaro e in grassetto, rendendo l'output stampato organizzato e facile da distinguere. Questo metodo è veloce e riduce al minimo lo sforzo manuale.
Consigli e note:
- I bordi esistenti verranno rimossi dal foglio di lavoro attivo quando si usa questa opzione.
- Se hai bisogno di mantenere bordi specifici, considera di fare un backup del tuo file o foglio di lavoro prima.
- Questa opzione funziona bene per fogli di lavoro grandi con più pagine di stampa che richiedono bordi di pagina consistenti e visivamente chiari.
Stampa bordi intorno a ogni pagina utilizzando l'automazione tramite macro VBA
Se vuoi automatizzare l'aggiunta di un bordo intorno a ogni pagina stampabile — specialmente per attività ricorrenti o layout personalizzati — puoi usare una macro VBA che legge le interruzioni di pagina di Excel e disegna un contorno della pagina. Questo ti dà pieno controllo sullo stile e lo spessore del bordo senza fare affidamento su componenti aggiuntivi.
Note:
- La macro delinea ogni pagina stampabile con un bordo solo sui bordi esterni (superiore/sinistro/inferiore/destro). Non sovrascriverà i bordi interni delle celle esistenti.
- Funziona meglio su fogli ben strutturati; celle unite complesse o aree di stampa insolite potrebbero richiedere piccoli aggiustamenti.
Passaggi operativi:
1. Premi Alt + F11 per aprire l'editor Visual Basic per Applicazioni. Clicca Inserisci > Modulo per aggiungere un nuovo modulo.
2. Copia e incolla il seguente codice nel modulo:
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. Ritorna a Excel, assicurati che il foglio di lavoro target sia attivo, ed esegui la macro con F5 (o il pulsante Esegui). La macro rileverà le interruzioni di pagina e disegnerà un bordo spesso intorno a ogni blocco di pagina stampabile.
Consigli:
- Regola lo stile/spessore del bordo modificando le quattro sezioni
xlEdge*(ad esempio,.Weight = xlMedium, colore tramite.Color). - Se è impostata un'Area di Stampa personalizzata, le interruzioni di pagina di Excel seguiranno quella; verifica i risultati in Anteprima di Stampa.
- Salva il tuo foglio di lavoro prima di eseguire le macro. Per uso ripetuto, salvalo come file abilitato per le macro (
.xlsm). - Se non viene trovato alcun contenuto, la macro esce in sicurezza con un messaggio (previene errori su fogli vuoti).
Se la macro non si comporta come previsto, controlla la presenza di celle unite, righe/colonne nascoste o impostazioni di scala insolite (ad esempio, “Adatta a 1 pagina in larghezza per N pagine in altezza”). Puoi affinare i blocchi di pagina cambiando l'Area di Stampa o le impostazioni di Impostazione Pagina e rieseguire la macro.
Aggiungi Bordo Intorno a Ogni Pagina
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in