Hromadný tisk více výběrů (všechny tiskové oblasti) na jednu stránku v aplikaci Excel

Zde budu hovořit o tisku více vybraných řádků na jedné stránce pomocí VBA v aplikaci Excel. Postupujte prosím následovně:

1. lis Další + F11 současně otevřete okno Microsoft Visual Basic pro aplikace.

2. cvaknutí Vložit > Modula poté vložte následující kód VBA do nového otevíracího okna modulu.

VBA: Tisk více vybraných řádků na jednu stránku v aplikaci 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. lis F5 klíč nebo klikněte na Běh tlačítko pro spuštění tohoto VBA.

4. Nyní a Kutools for Excel objeví se dialogové okno. Vyberte prosím více řádků, které chcete vytisknout, a klikněte na OK tlačítko pro tisk těchto řádků.

Poznámka: Držení Ctrl klíč, můžete vybrat více nesousedících řádků současně.

Pokud dokážeme zkopírovat tyto po sobě jdoucí řádky a vložit jako po sobě jdoucí rozsah do jiného listu, můžeme je snadno vytisknout na jednu stránku. Tato metoda představí Kutools for ExcelJe Kopírovat rozsahy nástroj se s tím vypořádat.

1. Vytvořte nový list, dále vyberte řádky, které vytisknete z tabulky, a klikněte Kutools > Kopírovat rozsahy.

Poznámka: Držení Ctrl klíč, můžete vybrat několik po sobě jdoucích řádků najednou.

2. V úvodním dialogovém okně Kopírovat více rozsahů zaškrtněte Zobrazit vše a klepněte na tlačítko Ok .

Poznámka: Včetně výšky řádku možnost a Včetně šířky sloupce možnosti zkopírují výšky řádků a šířky sloupců vybraných rozsahů a vloží se do cílového rozsahu.

3. Vyberte buňku A1 v nově vytvořeném listu a klepněte na OK Tlačítko.

4. Zůstaňte v cílovém listu a klikněte na Kutools > Vymazat > Odstranit prázdné řádky > V aktivním listu.

A pak vyjde dialogové okno a ukáže vám, kolik řádků bylo odstraněno. Jen to zavři.

5. Klepněte na tlačítko Soubor (nebo Tlačítko Office)> Tisk tyto řádky vytisknout.

Vlastně Kutools for Excel designy Průvodce vícenásobným výběrem tisku pro tisk více rozsahů společně v aplikaci Excel.

1. cvaknutí Enterprise > Tisk > Průvodce vícenásobným výběrem tisku otevřete Průvodce tiskem vícenásobného výběru.

2. V úvodním Průvodci tiskem více výběrů klepněte na přidat tlačítko  přidejte řádky, které budete tisknout společně, a klikněte na úprava .

Poznámky:

(1) Po kliknutí na přidat tlačítko , podržením klávesy můžete vybrat několik po sobě jdoucích rozsahů v jednom listu Ctrl klíč a poté je postupně vybírat;

(2) Odebrání rozsahu / řádku z Rozsahy pro tisk seznamu, vyberte tento rozsah / řádek a klikněte na Vymazat tlačítko.

(3) Tento nástroj nepodporuje tisk celých řádků a sloupců, jako je například celý řádek $ 4: $ 4, nebo celý sloupec $ B: $ B.

3. Vybrané řádky / rozsahy byly vloženy jako spojené obrázky do nového listu. Pokračujte kliknutím Soubor (nebo Tlačítko Office)> Tisk vytisknout.