» Poradna » Hardware

Automatické nárůstové číslování výtisků v Excelu

 |   | 

Zdravím všechny a prosím o radu: mám v Excelu jednu tabulku na A4, kterou potřebuji vytisknout v cca. 400 kopiích a každou kopii očíslovat číslem o jedna vyšším, než má předchozí výtisk. Jak nastavit automatické číslování, aby první měla v záhlaví číslo 1, další 2, atd.?
Děkuji moc za radu

Odpovědi na otázku

 |   | 

Nikdo neví, neporadí?

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Asi to půjde jenom makrem, třeba:

Sub tiskni()
Dim pocet_kopii As Integer, dotaz As String

dotaz = InputBox("Kolik kopií si přeješ vytisknout?", "Tisk dokumentu", 1)
pocet_kopii = Val(dotaz)

For i = 1 To pocet_kopii
ActiveSheet.PageSetup.CenterFooter = "Stránka - " & Str(i) & " -"
ActiveWindow.SelectedSheets.PrintOut
Rem ActiveWindow.SelectedSheets.PrintPreview
Next i

End Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Díííííííky Vyzkouším.

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Záhlaví




Určitě si přečtěte

Šéf amerického Red Hatu: Odpojte Brno od internetu a zhroutíme se

Šéf amerického Red Hatu: Odpojte Brno od internetu a zhroutíme se

** V Česku najdete hromadu skvělých vývojářů ** Mnozí z nich přispívají do open-source ** Třeba v brněnském Red Hatu

Jakub Čížek | 51

Google ADT-2: Miniaturní krabička s Android TV 8.0, kterou si nikdy nekoupíte

Google ADT-2: Miniaturní krabička s Android TV 8.0, kterou si nikdy nekoupíte

** Dlouho se nevědělo, co to přesně má být ** Pak se s krabičkou Google pochlubil na I/O ** Do „Chromecastu“ vtěsnal celý Android TV

Jakub Čížek | 22

15 věcí, které umí Windows 10, ale možná o nich vůbec nevíte

15 věcí, které umí Windows 10, ale možná o nich vůbec nevíte

** Systém Windows 10 umí spoustu užitečných drobností ** O mnoha praktických funkcích pravděpodobně ani nevíte ** Poznejte užitečné tipy, které se vám mohou hodit každý den

Vladislav Kluska | 33

Blíží se Juno. Jeden z nejhezčích Linuxů pro normální lidi

Blíží se Juno. Jeden z nejhezčích Linuxů pro normální lidi

** Ubuntu a Fedora patří k nejpopulárnějším linuxovým OS pro desktop ** A pak je tu zástup dalších nebo jejich odvozenin ** Jedním z nich je Elementary OS, který se brzy dočká novinek

Jakub Čížek | 71

Porno insider: Jak virtuální realita vstupuje do filmů pro dospělé

Porno insider: Jak virtuální realita vstupuje do filmů pro dospělé

** Pornografie údajně představuje třetinu internetové obsahu a je technologický tahounem ** Do erotického obsahu postupně zasahuje i virtuální realita ** Kromě vizuálního vjemu se pracuje také na virtuálním uspokojení toho hmatového

Jan Dudek | 28

Jak dopadl velký den Applu s náloží novinek: Sledujte, co letos připravil

Jak dopadl velký den Applu s náloží novinek: Sledujte, co letos připravil

** Apple večer představil novinky ** Ukáže nové operační systémy, ale čekala se i nová zařízení ** Začíná vývojářská konference Applu WWDC 2018

Karel Javůrek | 87

Rekordy počasí: V Česku to ještě jde, skutečné extrémy zažívají jinde

Rekordy počasí: V Česku to ještě jde, skutečné extrémy zažívají jinde

** Teplotní extrémy dokážou překvapit. Seznamte se s rekordy v Česku i ve světě ** Rekordní hodnoty jsou mnohdy až k neuvěření ** Zjistěte, kdy ke bylo největší horko, zima, déšť či vítr

Karel Kilián | 7


Aktuální číslo časopisu Computer

Kdy necháme řídit chytrá auta?

6 Wi-Fi Mesh systémů ve velkém testu

Srovnali jsme 7 sportovních kamer

Znáte pravidla pro létání s drony?