MS Excel

Dobrý den,
Pomůžete s kódem ve VBA?
Mám na excelovském listu proměnný počet tabulek, tabulky jsou vždy stejně velké.
Např. v oblasti
B2: J8
B11: J17
B20: J26
B29: J35
B38: J44

Nebo někdy v oblasti
B2: J8
B11: J17

Nebo někdy v oblasti
B2: J8
B11: J17
B20: J26
B29: J35

Atd.
Počet oblastí je proměnný. Jak mám nastavit oblast tisku, aby se každá tabulka tiskla na novou stránku?

Děkuji

Petr

Zaslat odpověď >

elninoslov(1.6.2017 23:36)#036607

Ak chcete tlačiť vždy za sebou idúci neznámy počet tabuliek, tak medzi ne vložte zlomy strán (Rozloženie strany - Zlomy strán - Vložiť zlom strany). Nadrobte si zlomy na dostatočný počet budúcich možných tabuliek, teda na N x 9 riadkov, alebo použite verziu s makrom, ktoré si samo pred samotným spustením tlače (nevidíte to v náhľade) vloží zlomy každých 9 riadkov až po posledný použitý riadok na liste TBL.

Příloha: zip

36607_zlomy-stran.zip (29kB, staženo 30x)

citovat

pon1(2.6.2017 15:01)#036613

pon1 napsal/a:

Díky
Super nápad. Můžete ještě pomoci s kódem, hází mi to chybu … potřebuji nepravidelný posun pro první tabulku (viz příloha).
První tabulka buď začíná na prvním nebo 4-tém řádku, jinak je mezera mezi ostatními tabulkami je 2 řádky. Vložil jsem do kódu proměnnou „count“, která zjišťuje, o kolik bude posun. Pokud je count 1, znamená to, že se jedná o první tabulku a posun bude jiný, než pokud je count vyšší než jedna, kdy posun bude taky jiný.

If count = 1 Then Riadok = Riadok + 45
Else
Riadok = Riadok + 44
End If

Ale dostal jsem hlášku, že: „Else without If

viz přiložený soubor
Dík

Příloha: rar

36613_test-konec-stranek.rar (57kB, staženo 23x)

citovat

marjankaj(2.6.2017 16:57)#036615

No skús tento riadok rozpísať na dva. Teda za THEN daj ENTER
If count = 1 Then Riadok = Riadok + 45
na
If count = 1 Then
Riadok = Riadok + 45citovat

elninoslov(3.6.2017 9:32)#036616

Príp. skúste takéto niečo.

Příloha: zip

36616_zlomy-stran.zip (68kB, staženo 33x)

citovat

pon1(13.6.2017 0:42)#036656

Ještě otázka
Viz přiložený soubor. Poslední řádek v listu "DOHODA2-VYSTUP" je 89 (tj. chci vytisknout jen tyto 2 stránky), ale makro mi poslední řádek našlo 1322 (Proměnná Riadkov je 1322). Tj. nevytisknou se jen 2 stránky, ale o hodně více. Co s tím?

List dohoda2 … tlačítko

Díky

Příloha: rar

36656_makro-kopie.rar (71kB, staženo 23x)

citovat

pon1(13.6.2017 1:03)#036657

díky elninoslov,
podíval jsem se na kód, list 2. Poslední řádek je 397, v kódu ale proměnná Riadkov má hodnotu 10 937 (posledni řádek 10 937). Co s tím?

Když jsem si v listu ručně upravil oblast tisku na B1:F5 a spustil jsem makro, tak se se nic nestalo … tj. oblast tisku se nezměnila.

Příloha: rar

36657_zlomy-stran-primo-na-tisk.rar (59kB, staženo 23x)

citovat

elninoslov(14.6.2017 8:35)#036662

To je jednoduché, máte tam 10000 riadkov, ktoré boli nejako použité, a následne iba vymazané. Keď ich vymažete iba pomocou Delete, tak ostanú označené ako "použitá oblasť". Treba celé riadky označiť za ušká vľavo, pklik na ušká a vybrať Odstrániť, potom uložiť súbor, a sú preč a nebudú považované za "použité". Lebo inak Vám to aj zväčšuje veľkosť súboru, aj zneprehľadňuje scrolovanie.

Každopádne makro som Vám prerobil tak, že mu je šumák, či je alebo nieje použitých 10000 prázdnych riadkov. Má to ale isté obmedzenia:
-medzera pre prvou tabuľkou musí byť menšia ako výška tabuľky
-medzi tabuľkami a pod tabuľkami nesmú byť žiadne dáta
-tabuľky a medzery medzi nimi musia byť rovnaké (používajú sa totiž násobky)

Dá sa to urobiť aj inak, napr sa spočíta koľko krát sa v stĺpci B vyskytuje text "CELKEM :", a podľa jeho pozície sa určí pozícia tabuľky. Spôsobov je viac.

Příloha: zip