Přejít k hlavnímu obsahu

Jak tisknout více výběrů na jednu stránku v aplikaci Excel?

Pokud máte velký list, který obsahuje hodně dat, a nyní chcete vytisknout některé vybrané rozsahy, které nejsou spojité na jedné stránce, abyste ušetřili hodně papíru. Excel poskytuje Nastavte Print Arear funkce pro nás tisknout více výběrů najednou, ale každý vybraný rozsah bude vytištěn na jednu stránku zvlášť. Tento článek bude hovořit o tom, jak tisknout více nespojitých výběrů na jednu stránku.

Tiskněte více výběrů z jednoho listu na jednu stránku pomocí kódu VBA

Tiskněte více výběrů z jednoho nebo více listů na jednu stránku pomocí Kutools pro Excel


Tiskněte více výběrů z jednoho listu na jednu stránku pomocí kódu VBA

Chcete-li vytisknout více vybraných nesouvislých výběrů jednoho listu na jedné stránce, může vám pomoci následující kód VBA, postupujte takto:

1. lis Ctrl vyberte rozsahy, které chcete vytisknout.

2. Podržte ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

3, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Tisk více výběrů na jednu stránku

Sub PrintOutRange()
'Updateby Extendoffice
Dim xRng1 As Range
Dim xRng2 As Range
Dim xNewWs As Worksheet
Dim xWs As Worksheet
Dim xIndex As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWs = ActiveSheet
Set xNewWs = Worksheets.Add
xWs.Select
xIndex = 1
For Each xRng2 In Selection.Areas
    xRng2.Copy
    Set xRng1 = xNewWs.Cells(xIndex, 1)
    xRng1.PasteSpecial xlPasteValues
    xRng1.PasteSpecial xlPasteFormats
    xIndex = xIndex + xRng2.Rows.Count
Next
xNewWs.Columns.AutoFit
xNewWs.PrintOut
xNewWs.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a vybrané rozsahy se vytisknou najednou a vytisknou se na jednu stránku.


Tiskněte více výběrů z jednoho nebo více listů na jednu stránku pomocí Kutools pro Excel

Výše uvedený kód vám pomůže vytisknout vybrané rozsahy z jednoho listu, pokud chcete, aby se na jednu stránku vytisklo více výběrů z několika listů, výše uvedený kód nebude fungovat. Nebojte se, zde vám mohu představit užitečný nástroj - Kutools pro Excel, S jeho Průvodce vícenásobným výběrem tisku nástroj, můžete vytisknout výběry z jednoho listu nebo více listů na jednu stránku najednou.

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů

Po instalaci Kutools pro Excel, proveďte prosím následující kroky:

1, klikněte Kutools Plus > Tisk > Průvodce vícenásobným výběrem tisku, viz screenshot:

2. V Průvodce vícenásobným výběrem tisku, Klepněte na tlačítkotlačítko pro přidání dokumentu tlačítko pro výběr a přidání rozsahu, který chcete vytisknout, do seznamu Seznam rozsahů k tisku (rozsahy můžete vybrat z jednoho listu nebo více listů), klepněte na tlačítko pro odebrání dokumentu Tlačítko můžete odstranit rozsahy, které nepotřebujete, viz screenshot:

doc tisk více výběrů 2

3. Po přidání výběrů do seznamu klikněte prosím Následující >> tlačítko přejděte na krok 2 průvodce, zadejte nastavení tisku podle potřeby a zaškrtnutím můžete přidat prázdný řádek mezi vybrané rozsahy Přidejte prázdný řádek mezi rozsahy možnost, viz screenshot:

doc tisk více výběrů 3

4. Poté pokračujte kliknutím Následující >> butoon, in step 3 of the wizard, specify the action for the temporary worksheet, you can active the worksheet but don't print, print the worksheet and keep it or print the worksheet and delete it. Viz snímek obrazovky:

doc tisk více výběrů 4

5, klikněte úprava tlačítko, byly všechny vybrané rozsahy vloženy do nového listu jako propojené obrazové objekty. Můžete je přetáhnout a změnit jejich uspořádání v listu. Viz snímek obrazovky:

doc tisk více výběrů 5

6. Při tisku tohoto nového listu se rozsahy vytisknou podle potřeby na jednu stránku.

Klepnutím získáte další informace o tomto nástroji Průvodce vícenásobným výběrem tisku.

Stáhněte si zdarma zkušební verzi Kutools pro Excel!


Ukázka: Tiskněte více výběrů z jednoho nebo více listů na jednu stránku pomocí Kutools pro Excel

Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how to print selection area with multi print ? i means selection area i wan to print 10 times
This comment was minimized by the moderator on the site
I tried your VBA code with Excel 2016 and I get an error: Compile Error: Sub of Function not defined. This line is highlighted: Set xRng1 = xNewWs.Cells(xIndex, 1)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations