Note: The other languages of the website are Google-translated. Back to English

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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
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!
officetab dno
Komentáře (2)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Zkoušel jsem váš kód VBA v aplikaci Excel 2016 a zobrazuje se chyba: Chyba kompilace: Sub of Function není definována. Tento řádek je zvýrazněn: Set xRng1 = xNewWs.Cells(xIndex, 1)
Tento komentář byl moderátorem webu minimalizován
jak vytisknout oblast výběru pomocí vícenásobného tisku? I znamená oblast výběru, kterou chci vytisknout 10krát
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL