Como imprimir várias linhas selecionadas numa única página no Excel?

Aqui explico como imprimir várias linhas selecionadas numa única página utilizando VBA no Excel. Siga os passos abaixo:

1. Prima simultaneamente as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e, de seguida, cole o código VBA abaixo na nova janela do Módulo que abrir.

VBA: Imprimir várias linhas selecionadas numa única página no Excel

Sub Extract_to_Print()
Dim Rg As Range, Rg1 As Range, Rg2 As Range
Dim xAddress As String
Dim xSht As Worksheet
Dim I As Long
Dim xScreenUpdate As Boolean
Dim xAlert As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select ranges you will print:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
xScreenUpdate = Application.ScreenUpdating
xAlert = Application.DisplayAlerts
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xSht = ThisWorkbook.Worksheets.Add
I = 1
For Each Rg1 In Rg.Areas
Rg1.Copy xSht.Range("A" & I)
I = I + Rg1.Rows.Count
Next
xSht.PrintOut
xSht.Delete
Application.ScreenUpdating = xScreenUpdate
Application.DisplayAlerts = xAlert
End Sub

3. Prima a tecla F5 ou clique no botão Executar para executar este VBA.

4. Agora surge uma caixa de diálogo do Kutools para Excel. Selecione as linhas múltiplas que pretende imprimir e clique no botão OKpara imprimir essas linhas.

Nota: Ao manter premida a tecla Ctrl, pode selecionar várias linhas não adjacentes em simultâneo.

Se conseguirmos copiar estas linhas não consecutivas e colá-las como um intervalo contínuo noutra folha de cálculo, podemos imprimi-las facilmente numa única página. Este método irá mostrar a utilidade Copiar Faixas do Kutools para Excel para resolver esta tarefa.

1. Crie uma nova planilha, selecione de seguida as linhas que pretende imprimir da sua tabela e clique em Kutools > Intervalo > Copiar Faixas.

Nota: Ao manter premida a tecla Ctrl, pode selecionar várias linhas não consecutivas em simultâneo.

2. Na caixa de diálogo Copiar Múltiplas Faixas aberta, marque a opção Tudo e clique no botão Ok.

Nota: A opção Incluir Altura da Linha e a opção Incluir Largura da Coluna copiam a altura das linhas e a largura das colunas do intervalo selecionado e aplicam-nas no intervalo de destino.

3. Selecione a célula A1 na nova folha de cálculo criada e clique no botão OK.

4. Permaneça na folha de destino e clique em Kutools > Eliminar > Excluir linhas em branco > Planilha Ativa.

Em seguida, surge uma caixa de diálogo que indica quantas linhas foram eliminadas. Basta fechá-la.

5. Clique em Ficheiro(ou no)botão Office) > Imprimir para imprimir essas linhas.

Na realidade, o Kutools para Excel concebeu o assistente Assistente de Impressão de Múltiplas Seleções para imprimir vários intervalos em conjunto no Excel.

1. Clique em KUTOOLS PLUS > Impressão > Assistente de Impressão de Múltiplas Seleções para abrir o Assistente de Impressão de Múltiplas Seleções.

2. No Assistente de Impressão de Múltiplas Seleções aberto, clique no botão Adicionar para adicionar os intervalos que pretende imprimir em conjunto e, em seguida, clique no botão Concluir.

Notas:

(1) Após clicar no botão Adicionar, pode selecionar vários intervalos não consecutivos numa folha de cálculo ao manter premida a tecla Ctrle selecioná-los um a um;

(2) Para remover um intervalo ou linha da lista Intervalos a imprimir, basta selecionar esse intervalo ou linha e clicar no botão Eliminar.

(3) Esta funcionalidade não suporta a impressão de linhas inteiras nem de colunas inteiras, tais como a linha inteira $4:$4 ou a coluna inteira $B:$B.

3. As linhas/intervalos selecionados foram colados como imagens ligadas numa nova folha de cálculo. Prossiga e clique em Ficheiro(ou no)botão Office) > Imprimir para imprimir.