Como imprimir várias linhas selecionadas em uma página no Excel?

Aqui vou falar sobre a impressão de várias linhas selecionadas em uma página com VBA no Excel. Por favor, siga os passos abaixo:

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

2. Clique em Inserir > Módulo e cole o código VBA abaixo na nova janela Módulo que se abrirá.

VBA: Imprimir várias linhas selecionadas em uma 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. Pressione a tecla F5 ou clique no botão Executar para executar este VBA.

4. Agora, uma caixa de diálogo do Kutools para Excel aparecerá. Por favor, selecione várias linhas que você deseja imprimir e clique no botão OK para imprimi-las.

Observação: Mantendo a tecla Ctrl pressionada, você pode selecionar várias linhas não adjacentes ao mesmo tempo.

Se pudermos copiar essas linhas não consecutivas e colá-las como um intervalo consecutivo em outra planilha, poderemos facilmente imprimi-las em uma página. Este método introduzirá a ferramenta Copiar Intervalos do Kutools para Excel para lidar com isso.

1. Crie uma nova planilha, depois selecione as linhas que deseja imprimir da sua tabela e clique em Kutools > Intervalo > Copiar Intervalos.

Observação: Mantendo a tecla Ctrl pressionada, você pode selecionar várias linhas não consecutivas ao mesmo tempo.

2. Na caixa de diálogo Copiar Múltiplos Intervalos que será aberta, marque a opção Todos e clique no botão Ok.

Observação: As opções Incluir altura da linha e Incluir largura da coluna copiarão as alturas das linhas e larguras das colunas dos intervalos selecionados e os colarão no intervalo de destino.

3. Selecione a célula A1 na nova planilha criada e clique no botão OK.

4. Permaneça na planilha de destino e clique em Kutools > Excluir > Excluir Linhas em Branco > Na Planilha Ativa.

Em seguida, uma caixa de diálogo aparecerá e mostrará quantas linhas foram excluídas. Basta fechá-la.

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

Na verdade, o Kutools para Excel projeta o Assistente de Impressão de Seleções Múltiplas para imprimir vários intervalos juntos no Excel.

1. Clique em Kutools Plus > Imprimir > Assistente de Impressão de Seleções Múltiplas para abrir o Assistente de Impressão de Seleções Múltiplas.

2. No Assistente de Impressão de Seleções Múltiplas que será aberto, clique Adicionar botão  para adicionar as linhas que deseja imprimir juntas e clique no Concluir botão.

Notas:

(1) Após clicar no Adicionar botão , você pode selecionar múltiplos intervalos não consecutivos em uma planilha mantendo a tecla Ctrl pressionada e então selecionando-os um por um;

(2) Para remover um intervalo/linha da lista Intervalos para imprimir basta selecionar esse intervalo/linha e clicar no Excluir botão.

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

3. As linhas/intervalos selecionados foram colados como imagens vinculadas em uma nova planilha. Prossiga para clicar em Arquivo (ou botão Office) > Imprimir para imprimi-los.