Obsah
Pokud můžeme v listu aplikace Excel nastavit vlastní tlačítko tisku, může být tisk listů uživatelsky velmi přívětivý a šetřit čas. Pomocí Makra VBA , můžeme to snadno udělat. V tomto článku vám tedy nabídneme 5 jednoduchých maker, která můžete použít. VBA kód pro tlačítko tisku v aplikaci Excel.
Stáhnout cvičebnici
Bezplatnou šablonu Excelu si můžete stáhnout zde a procvičit si ji sami.
Kód VBA pro vytvoření tlačítka Print Button.xlsm5 příkladů použití kódu VBA pro tlačítko tisku v aplikaci Excel
Nejprve se seznámíme s naším souborem dat, který představuje některé prodejce prodeje v různých Regiony .
1. Použití kódu VBA k vytvoření tlačítka pro tisk dialogového okna Tisk v aplikaci Excel
Nejprve vytvoříme Tlačítko pro tisk a poté pro něj napíše kódy.
Kroky:
- Klikněte na takto: Vývojář >> Vložte >> Knoflíková krabička.
Brzy poté obdržíte znaménko plus (+) ve vašem kurzor .
- Drag že kurzor podle vašeho přání velikost tlačítka a po chvíli dialogové okno s názvem Přiřazení makra se otevře.
- Dejte název a stiskněte tlačítko New .
A VBA zobrazí se okno.
- Pak do něj zadejte následující kódy.
Sub DialogBox() Application.Dialogs(xlDialogPrint).Show End Sub - Nyní vrátit se zpět k vašemu list .
Rozdělení kódu
- Zde jsem vytvořil Sub postup, Dialogové okno .
- Pak použil Dialogy (xlDialogPrint).Show otevřít Dialogové okno Tisk .
Tlačítko je vytvořeno.
- Klikněte pravým tlačítkem myši na na tlačítko a vyberte Upravit text z Kontextová nabídka změnit název tlačítka.
- Později jen typ na název a klikněte na vaše myš kdekoli mimo tlačítko .
Pak stačí stisknout tlačítko Tlačítko .
Pak získáte Dialogové okno Tisk Pokud chcete, můžete Tisk nyní.
Pokud nemáte žádné Tiskárna v tuto chvíli můžete Uložit jako PDF . k dalšímu použití nebo k Tisk později.
- Nyní stiskněte OK .
- V tuto chvíli stačí dát název a stiskněte Uložit .
Zde je vytištěný PDF .
Přečtěte si více: Jak upravit nastavení tisku v aplikaci Excel (8 vhodných triků)
2. Pomocí kódu VBA vytvořte tlačítko tisku pro aktivní list
Zde použijeme VBA na tisk . Aktivní List .
Kroky:
- Sledujte první dvoukrok z první části vytvořit tlačítko a Přiřazení makra .
- Napište Název makra a stiskněte Nový .
Brzy poté se objevil VBA otevře se okno.
- Pak napsat následující kódy v něm...
Sub ActiveSheet() ActiveSheet.PrintOut End Sub - Později, vrátit se zpět na
Rozdělení kódu
- Zde jsem vytvořil Sub postup, ActiveSheet .
- Pak použil PrintOut na vybrat na aktivní list a tisk to.
- Nyní stačí tisk na Tlačítko .
A dialogové okno s názvem Uložit tiskový výstup jako se otevře.
- Dejte název a stiskněte Uložit .
Poté obdržíte vytištěné PDF .
Snadno můžete změnit tiskárna pokud ji potřebujete.
- Klikněte na na adrese Soubor vedle Home
- Pak vyberte Tisk možnost a klikněte na na rozevírací seznam vybrat Tiskárna .
Přečtěte si více: Jak vytisknout všechny listy v aplikaci Excel (3 metody)
3. Použití kódu VBA pro vytvoření tlačítka pro tisk vybraných listů v aplikaci Excel
Pokud chcete Tisk specifické vybrané listy pak je také možné použít VBA .
Kroky:
- Sledujte první dvoukrok z první části vytvořit tlačítko a přiřadit a makro .
- Pak napište Název makra a stiskněte Nový .
Brzy poté se objevil VBA otevře se okno.
- Později, typ následující kódy v něm...
Sub SelectedSheets() ActiveWindow.SelectedSheets.PrintOut End Sub Pak vrátit se zpět k vašemu list .
Rozdělení kódu
- Zde jsem vytvořil Sub postup, SelectedSheets .
- Pak použil ActiveWindow na vybrat list z aktivní Excel okno .
- Dále použijte PrintOut tisknout více vybrané listy .
- Nyní vybrat listy a stiskněte tlačítko Tlačítko pro tisk . vybral jsem dva listy.
- Dejte název pro PDF a stiskněte Uložit .
Na stránkách PDF soubor má t wo stranách pro dva listy .
Přečtěte si více: Jak vytisknout konkrétní listy pomocí makra VBA v aplikaci Excel (4 způsoby)
Podobné čtení:
- Jak vytisknout list aplikace Excel ve formátu A4 (4 způsoby)
- Jak zachovat záhlaví v aplikaci Excel při tisku (3 způsoby)
- Excel VBA: Jak dynamicky nastavit oblast tisku (7 způsobů)
- Jak vytisknout list aplikace Excel s čarami (3 snadné způsoby)
- Jak vytisknout graf v aplikaci Excel (5 způsobů)
4. Vložení aplikace Excel VBA pro vytvoření tlačítka tisku pro konkrétní list s vybraným rozsahem
Zde vytvoříme Tlačítko pro tisk na tisk a vybraný rozsah od a specifický list .
Kroky:
- Sledujte první dvoukrok z první části vytvořit tlačítko a přiřadit makro.
- Napište Název makra a stiskněte Nový .
Brzy poté se objevil VBA otevře se okno.
- Pak napsat následující kódy -
Sub SpecificSheetnRange() With Sheets("SpecificSheet+Range") .PageSetup.PrintArea = "B2:D11" .PrintOut End With End Sub - Později se vraťte ke svému listu.
Rozdělení kódu
- Zde jsem vytvořil Sub postup, SpecificSheetnRange .
- Pak použil S prohlášení na vybrat a specifické
- Další, PrintArea = "B2:D11".PrintOut bude vybrat . rozsah z specifický list a bude Tisk to.
- Nyní stačí tisk . Tlačítko pro tisk .
- Nastavit a název pro PDF a stiskněte Uložit .
Je to s potiskem specifický list.
Přečtěte si více: Excel VBA: Nastavení oblasti tisku pro více rozsahů (5 příkladů)
5. Vložení aplikace Excel VBA pro vytvoření tlačítka tisku pro aktivní list s vybraným rozsahem
Můžete také vybrat rozsah z aktivní list a může vytvořit Tlačítko pro tisk na tisk pomocí VBA .
Kroky:
- Sledujte první dvoukrok z první části vytvořit tlačítko a přiřadit makro .
- Později napište Název makra a stiskněte Nový .
Brzy poté se objevil VBA otevře se okno.
- V VBA okno, napsat následující kódy -
Sub ActiveSheetnRange() Range("B2:D11").PrintOut End Sub - Pak vrátit se zpět k vašemu list .
Rozdělení kódu
- Zde jsem vytvořil Sub postup, ActiveSheetnRange .
- Pak použil Range("B2:D11").PrintOut na vybrat a rozsah a tisk.
- Stiskněte tlačítko Tlačítko pro tisk .
- Dejte název a stiskněte Uložit .
Pak získáte tištěný rozsah .
Přečtěte si více: Tlačítko aplikace Excel pro tisk konkrétních listů (ve snadných krocích)
Závěr
Doufám, že výše popsané postupy budou dostatečně dobré pro použití kódu VBA pro tlačítko tisku v Excelu. Neváhejte se zeptat na cokoli v komentářích a prosím, dejte mi zpětnou vazbu.
