Gruppera ut flera val (alla utskriftsområden) på en sida i Excel

Här kommer jag att prata om att skriva ut flera valda rader på en sida med VBA i Excel. Gör så här:

1. Tryck andra + F11 samtidigt för att öppna Microsoft Visual Basic for Applications-fönstret.

2. klick Insert > Modulernaoch klistra sedan in nedanstående VBA-kod i det nya öppningsmodulfönstret.

VBA: Skriv ut flera valda rader på en sida i 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. Tryck F5 eller klicka på Körning för att köra denna VBA.

4. Nu dyker en Kutools för Excel-dialogruta upp. Välj flera rader som du kommer att skriva ut och klicka på OK för att skriva ut dessa rader.

Anmärkningar: Håller ctrl kan du välja flera icke-angränsande rader samtidigt.

Om vi ​​kan kopiera dessa på varandra följande rader och klistra in som ett på varandra följande intervall i andra kalkylblad kan vi enkelt skriva ut dem på en sida. Denna metod kommer att introducera Kutools för Excel Kopiera intervall verktyg för att hantera det.

1. Skapa ett nytt kalkylblad, välj sedan rader som du skriver ut från din tabell och klicka Kutools > Kopiera intervall.

Anmärkningar: Håller ctrl kan du välja flera på varandra följande rader samtidigt.

2. Kontrollera i dialogrutan Kopiera flera områden Alla alternativet och klicka på Ok knapp.

Anmärkningar: Den Inklusive radhöjd alternativ och Inklusive kolonnbredd alternativen kopierar valda områdes radhöjder och kolumnbredder och klistras in i destinationsområdet.

3. Markera Cell A1 i det nya skapade kalkylbladet och klicka på OK Knapp.

4. Håll dig kvar i målets kalkylblad och klicka Kutools > Radera > Ta bort tomma rader > I aktivt ark.

Och sedan kommer en dialogruta ut som visar hur många rader som har tagits bort. Stäng det bara.

5. Klicka på Fil (eller Kontorsknapp)> Skriva ut för att skriva ut dessa rader.

Egentligen Kutools för Excel-design Skriv ut guiden för flera val för att skriva ut flera områden tillsammans i Excel.

1. klick Företag > Utskrift > Skriv ut guiden för flera val för att öppna guiden Skriv ut flera val.

2. Klicka på i den inledande guiden Skriv ut flera val Lägg till Knappen  för att lägga till rader som du kommer att skriva ut tillsammans och klicka på Finish knapp.

Anmärkningar:

(1) Efter att ha klickat på Lägg till Knappen , kan du välja flera på varandra följande intervall i ett kalkylblad genom att hålla ctrl och välj dem sedan en efter en;

(2) Ta bort ett intervall / rad från Områden att skriva ut välj bara detta intervall / rad och klicka på Radera Knappen.

(3) Det här verktyget stöder inte utskrift av hela rader och kolumner, till exempel hela raden av $ 4: $ 4, eller hela kolumnen med $ B: $ B.

3. Valda rader / intervall har klistrats in som länkade bilder i ett nytt kalkylblad. Fortsätt för att klicka Fil (eller Kontorsknapp)> Skriva ut för att skriva ut den.