Impressão em lote de várias seleções (todas as áreas de impressão) em uma página no Excel

Aqui, falarei sobre como imprimir várias linhas selecionadas em uma página com o VBA no Excel. Faça o seguinte:

1. Pressione outro + F11 simultaneamente para abrir a janela Microsoft Visual Basic for Applications.

2. Clique inserção > Móduloe, em seguida, cole o código VBA abaixo na nova janela de abertura do Módulo.

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 F5 ou clique no Execute botão para executar este VBA.

4. Agora, uma caixa de diálogo do Kutools para Excel aparecerá. Selecione várias linhas que você imprimirá e clique no OK botão para imprimir essas linhas.

Note: Segurando o Ctrl , você pode selecionar várias linhas não adjacentes ao mesmo tempo.

Se pudermos copiar essas linhas inconsecutivas e colá-las como um intervalo consecutivo em outra planilha, podemos imprimi-las facilmente em uma página. Este método irá apresentar o Kutools para Excel Copiar intervalos utilidade para lidar com isso.

1. Crie uma nova planilha, em seguida selecione as linhas que você imprimirá de sua tabela e clique em Kutools > Copiar intervalos.

Note: Segurando o Ctrl , você pode selecionar várias linhas inconsecutivas ao mesmo tempo.

2. Na caixa de diálogo de abertura Copy Multiple Ranges, marque Todos os Produtos opção, e clique no botão Ok botão.

Note: O Incluindo altura da linha opção e Incluindo a largura da coluna as opções irão copiar as alturas das linhas e larguras das colunas dos intervalos selecionados e colados no intervalo de destino.

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

4. Permaneça na planilha de destino e clique em Kutools > Apagar > Excluir linhas em branco > Em folha ativa.

E então uma caixa de diálogo aparece e mostra quantas linhas foram excluídas. Apenas feche.

5. Clique na Envie o (ou Botão de escritório)> Impressão para imprimir essas linhas.

Na verdade, Kutools para projetos do Excel Assistente de seleção múltipla de impressão para imprimir vários intervalos juntos no Excel.

1. Clique Empreendimento > Impressão > Assistente de seleção múltipla de impressão para abrir o Assistente de seleção de impressão múltipla.

2. Na abertura do Assistente de seleção múltipla de impressão, clique em Adicionar botão  para adicionar linhas que você imprimirá juntas e clique no Acabamento botão.

Observações:

(1) Depois de clicar no Adicionar botão , você pode selecionar vários intervalos inconsecutivos em uma planilha segurando o Ctrl tecla e, em seguida, selecionando-os um por um;

(2) Para remover um intervalo / linha do Intervalos para imprimir lista, basta selecionar este intervalo / linha e clicar no Apagar botão.

(3) Este utilitário não suporta a impressão de linhas e colunas inteiras, como linhas inteiras de $ 4: $ 4, ou coluna inteira de $ B: $ B.

3. As linhas / intervalos selecionados foram colados como imagens vinculadas em uma nova planilha. Vá em frente para clicar Envie o (ou Botão de escritório)> Impressão para imprimi-lo.