Como imprimir contornos em torno de cada página no Excel?
Ao trabalhar com folhas de cálculo extensas que abrangem centenas de páginas, imprimir os dados num formato claro e profissional torna-se essencial. Uma forma eficaz de o conseguir é adicionar um contorno à volta de cada página impressa, garantindo uma separação visual clara e uma leitura mais fácil. Embora seja possível selecionar manualmente e aplicar contornos ao conteúdo de cada página no Excel, este método revela-se extremamente moroso e impraticável em documentos com múltiplas páginas. Felizmente, existem soluções mais eficientes para imprimir automaticamente contornos à volta de todas as páginas no Excel. Neste artigo, exploramos vários métodos práticos para realizar esta tarefa, incluindo opções incorporadas e abordagens alternativas.
➤ Imprimir contornos à volta de cada página com a definição de linhas de grelha
➤ Imprimir contornos à volta de cada página com um só clique com o Kutools para Excel
➤ Imprimir contornos à volta de cada página utilizando automação com macro VBA
Imprimir contornos à volta de cada página com a definição de linhas de grelha
Embora o Excel não disponibilize uma opção dedicada para adicionar um contorno à volta de cada página impressa, pode utilizar a função Imprimir Linhas de Grelha para simular contornos de página. Trata-se de um método rápido e sem necessidade de extras. Tenha em atenção que não será criado um contorno destacado à volta da página — o Excel imprime todas as linhas de grelha, e a margem da página fica visualmente definida pelas últimas linhas de grelha impressas.
Notas:
- Este método funciona melhor quando a sua folha de cálculo segue uma grelha regular e não depende fortemente de contornos personalizados.
- Se a sua folha já utilizar contornos distintivos para tabelas, as linhas de grelha impressas podem entrar em conflito visual com esses contornos.
1. Se existirem contornos personalizados, remova-os primeiro para evitar sobreposições ou linhas inconsistentes na impressão. Selecione a folha e vá até Base > Contorno (ícone) > Sem Contorno para limpar os contornos de todas as células selecionadas:
2. Vá até Esquema da Página > clique no Configuração de Página iniciador da caixa de diálogo (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 o separador Folha e ative Linhas de Grelha na secção Impressão para que todas as linhas de grelha (incluindo as das margens da página) sejam impressas:
4. Clique em Pré-visualização de Impressão para confirmar o resultado. Ao imprimir, cada página exibirá um limite retangular claro formado pelas linhas de grelha mais externas impressas, simulando um contorno de página. Veja o exemplo:
Dicas:
- Se precisar de contornos mais grossos e proeminentes, adicione manualmente contornos exteriores à Área de Impressão ou utilize uma macro para desenhar os contornos das páginas.
- Evite regiões com células combinadas ou irregulares, pois podem interromper a continuidade visual das linhas de grelha impressas.
- Visualize sempre antes de imprimir para garantir que o resultado final corresponde exatamente às suas expectativas.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Imprimir contornos à volta de cada página com um só clique com o Kutools para Excel
Para utilizadores que pretendam um contorno de página com um aspeto mais profissional — especialmente em folhas de cálculo com formatação complexa ou quando as linhas de grelha não são suficientes — o Kutools para Excel oferece uma solução conveniente: a funcionalidade Adicionar bordas às quebras de página. Esta ferramenta permite-lhe adicionar um contorno sólido a todas as páginas imprimíveis da folha ativa com apenas um clique, poupando tempo e garantindo um aspeto consistente em todas as páginas.
Após instalar o Kutools para Excel, siga estes passos para Adicionar bordas às quebras de página:
1. Ative a folha onde pretende adicionar contornos e vá até Enterprise > Impressão > Adicionar bordas às quebras de página. Veja a captura de ecrã:
2. Se surgir uma caixa de diálogo a avisar que todos os contornos existentes serão eliminados caso continue, certifique-se de que guardou o seu trabalho ou de que aceita substituir os contornos. Clique em Sim para continuar:
Uma vez aplicado, cada página da sua folha de cálculo fica delimitada por um contorno grosso e nítido, garantindo uma impressão organizada e facilmente distinguível. Este método é rápido e reduz ao mínimo o esforço manual.
Dicas e notas:
- Os contornos existentes serão removidos da Planilha Atual ao utilizar esta opção.
- Se precisar de preservar contornos específicos, considere fazer uma cópia de segurança do seu ficheiro ou da folha de cálculo antes de prosseguir.
- Esta opção é ideal para folhas de cálculo grandes com múltiplas páginas impressas, garantindo contornos de página consistentes e visualmente claros.
Imprimir contornos à volta de cada página utilizando automação com macro VBA
Se pretender automatizar a adição de um contorno à volta de todas as páginas imprimíveis — especialmente para tarefas recorrentes ou esquemas personalizados — pode utilizar uma macro VBA que lê as quebras de página do Excel e desenha um contorno de página. Assim, obtém controlo total sobre o estilo e a espessura do contorno, sem depender de extras.
Notas:
- A macro delimita cada página imprimível com um contorno apenas nas margens exteriores (superior, esquerda, inferior e direita), sem substituir os contornos internos das células já existentes.
- Funciona melhor em folhas bem estruturadas; fusões complexas ou áreas de impressão invulgares poderão exigir pequenos ajustes.
Passos operacionais:
1. Prima Alt + F11 para abrir o Editor do Visual Basic para Aplicações. Clique em Inserir > Módulo para adicionar um novo módulo.
2. Copie e cole o código seguinte 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. Regresse ao Excel, certifique-se de que a folha de destino está ativa e execute a macro com F5(ou no botão)Executar). A macro detetará as quebras de página e desenhará um contorno grosso à volta de cada bloco de página imprimível.
Dicas:
- Ajuste o estilo/peso do contorno editando as quatro
secções xlEdge*(por exemplo,).Weight = xlMedium) e a cor através de.Color. - Se estiver definida uma Área de Impressão personalizada, as quebras de página do Excel seguirão essa definição; verifique os resultados na Pré-visualização de Impressão.
- Guarde o seu livro antes de executar macros. Para utilização repetida, guarde-o como um ficheiro ativado para macros ()
.xlsm). - Se não for encontrado conteúdo, a macro termina de forma segura com uma mensagem (evitando erros em folhas vazias).
Se a macro não funcionar conforme esperado, verifique se existem células mescladas, linhas ou colunas ocultas ou definições invulgares de dimensionamento (por exemplo, «Ajustar a 1 página de largura por N páginas de altura»). Pode refinar os blocos de página ajustando as definições da Área de Impressão ou da Configuração de Página e executando novamente a macro.
Adicionar Contorno à Volta de Cada Página
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos