Como imprimir bordas ao redor de cada página no Excel?
Ao trabalhar com planilhas grandes que abrangem centenas de páginas, imprimir os dados em um formato claro e profissional torna-se essencial. Uma maneira de alcançar isso é adicionando uma borda ao redor de cada página impressa, para que a saída seja visualmente separada e mais fácil de ler. Embora você possa selecionar manualmente e aplicar bordas ao conteúdo de cada página no Excel, essa abordagem é extremamente demorada e impraticável ao lidar com várias páginas. Felizmente, existem soluções mais eficientes para imprimir automaticamente bordas ao redor de cada página no Excel. Neste artigo, exploraremos vários métodos práticos para realizar essa tarefa, incluindo opções embutidas e abordagens alternativas.
➤ Imprimir bordas ao redor de cada página configurando as linhas de grade
➤ Imprimir bordas ao redor de cada página com um clique usando o Kutools para Excel
➤ Imprimir bordas ao redor de cada página usando automação de macro VBA
Imprimir bordas ao redor de cada página configurando as linhas de grade
Embora o Excel não ofereça uma opção dedicada para adicionar uma borda ao redor de cada página impressa, você pode usar o recurso Imprimir Linhas de Grade para simular bordas de página. Isso é rápido e não requer suplementos. Observe que isso não criará um contorno de página em negrito — o Excel imprime todas as linhas de grade, e a borda da página se define visualmente pelas últimas linhas de grade impressas.
Notas:
- Este método funciona melhor quando sua planilha se ajusta a um layout de grade regular e você não depende de bordas personalizadas pesadas.
- Se sua planilha já usa bordas distintivas para tabelas, as linhas de grade impressas podem visualmente colidir com elas.
1. Se houver bordas personalizadas, remova-as primeiro para evitar linhas sobrepostas ou inconsistentes na impressão. Selecione a planilha, depois vá para Página Inicial > Borda (ícone) > Sem Borda para limpar as bordas de todas as células selecionadas:
2. Vá para Layout da Página > clique no iniciador de caixa de diálogo Configuração de Página (seta pequena no canto do grupo) para abrir a caixa de diálogo Configuração de Página:
3. Na Configuração de Página, mude para a aba Planilha e marque Linhas de Grade na seção Imprimir para que todas as linhas de grade (incluindo aquelas nas bordas das páginas) sejam impressas:
4. Clique em Visualização de Impressão para confirmar o resultado. Quando você imprimir, cada página mostrará um limite retangular claro formado pelas linhas de grade externas impressas, simulando uma borda de página. Veja o exemplo:
Dicas:
- Se você precisar de bordas mais espessas e proeminentes, considere adicionar bordas externas manualmente para a área de impressão ou usar uma macro para desenhar contornos de página.
- Evite células mescladas/regiões irregulares; elas podem quebrar a continuidade visual das linhas de grade impressas.
- Sempre visualize antes de imprimir para garantir que a aparência atenda às suas expectativas.
Desbloqueie a Magia do Excel com o Kutools AI
- Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
- Codificação VBA: Escreva e implemente código VBA sem esforço.
- Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
- Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.
Imprimir bordas ao redor de cada página com um clique usando o Kutools para Excel
Para usuários que desejam uma borda de página com aparência mais profissional — especialmente em planilhas com formatação complexa ou quando as linhas de grade são insuficientes — o Kutools para Excel oferece uma solução conveniente: o recurso Adicionar Borda a Cada Página. Esta ferramenta permite que você adicione uma borda sólida a cada página imprimível da planilha ativa com apenas um clique, economizando tempo e garantindo uma aparência consistente em todas as páginas.
Após instalar o Kutools para Excel, siga estas etapas para adicionar bordas a cada página:
1. Ative a planilha onde deseja adicionar bordas, depois vá para Empresa > Impressão > Adicionar Borda a Cada Página. Veja a captura de tela:
2. Se uma caixa de diálogo aparecer avisando que todas as bordas existentes serão excluídas se você continuar, certifique-se de ter salvo seu trabalho ou confirmado que sobrescrever as bordas é aceitável. Clique Sim para prosseguir:
Uma vez aplicado, cada página de sua planilha será delineada com uma borda clara e em negrito, fazendo com que a saída impressa pareça organizada e fácil de distinguir. Este método é rápido e minimiza o esforço manual.
Dicas e notas:
- As bordas existentes serão removidas da planilha ativa ao usar esta opção.
- Se você precisar manter bordas específicas, considere fazer backup de seu arquivo ou planilha primeiro.
- Esta opção funciona bem para planilhas grandes com várias páginas de impressão que exigem bordas de página consistentes e visualmente claras.
Imprimir bordas ao redor de cada página usando automação de macro VBA
Se você deseja automatizar a adição de uma borda ao redor de cada página imprimível — especialmente para tarefas recorrentes ou layouts personalizados — você pode usar uma macro VBA que lê as quebras de página do Excel e desenha um contorno de página. Isso dá controle total sobre o estilo e a espessura da borda sem depender de suplementos.
Notas:
- A macro delimita cada página imprimível com uma borda apenas nas bordas externas (superior/esquerda/inferior/direita). Ela não substituirá as bordas internas de células existentes.
- Funciona melhor em planilhas bem estruturadas; células mescladas complexas ou áreas de impressão incomuns podem precisar de ajustes menores.
Etapas de operação:
1. Pressione Alt + F11 para abrir o editor do Visual Basic for Applications. Clique em Inserir > Módulo para adicionar um novo módulo.
2. Copie e cole o seguinte código no 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. Retorne ao Excel, certifique-se de que a planilha alvo está ativa e execute a macro com F5 (ou o botão Executar). A macro detectará as quebras de página e desenhará uma borda grossa ao redor de cada bloco de página imprimível.
Dicas:
- Ajuste o estilo/espessura da borda editando as quatro seções
xlEdge*(por exemplo,.Weight = xlMedium, cor via.Color). - Se uma Área de Impressão personalizada estiver definida, as quebras de página do Excel seguirão-na; verifique os resultados na Visualização de Impressão.
- Salve sua pasta de trabalho antes de executar macros. Para uso repetido, salve como um arquivo habilitado para macro (
.xlsm). - Se nenhum conteúdo for encontrado, a macro sai com segurança com uma mensagem (previne erros em planilhas vazias).
Se a macro não se comportar conforme o esperado, verifique se há células mescladas, linhas/colunas ocultas ou configurações de escala incomuns (por exemplo, “Ajustar a 1 página de largura por N páginas de altura”). Você pode refinar blocos de página alterando sua Área de Impressão ou Configuração de Página e reexecutar a macro.
Adicionar Borda ao Redor de Cada Página
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins