MS Excel

Dobrý den, zkuste tohle:

1. Stáhnete soubor ""RychlaTlac.7z z přílohy.
2. Otevřete Excel, kde máte ty tabulky.
3. Stisknutím kláv. zkratky Alt + F11 otevřete VBA editor.
4. Vložte modul "RychlaTlac.bas" přes : File> Import File... (nebo kláv zkratka Ctrl+M).
5. Vyberte stažený soubor "RychlaTlac.bas"(soubor který jste si stáhla ode mně):
6. Mělo by se ve VBA editoru zobrazit v pravém horním rohu složka "Modules" a v něm soubor "RychlaTlac"
7. Dvojklikem otevřete tento modul. Skoro dole hledejte text ' Nastavte hárok, kde sa nachází tabulky
Set ws = ThisWorkbook.Sheets("Hárok1") ' místo "Hárok1" zadat skutočný názov hárku kde dle instrukce změňte název hárku dle vašeho pojmenování hárku.
8. Dále ve VBA editoru dvojkliknout v právem horním rohu na "ThisWorkbook" a vložit tento příkaz: Private Sub Workbook_Open()
PridejKontextMenu
End Sub

9. Uložte změny v Excelu
10. Zavřete, následně znovu otevřete Excel soubor s tabulkami
11. Nyní pravým tlačítkem myši by se mělo zobrazit kontextové menu pro tisk tabulek, na kterou když kliknete vyleze inputbox kam zadáte množství kopií a potvrdíte tlačítkem "OK" a hned proběhne tisk.citovat