excel vba - tisk jen nekterych listu

[zutano]

Zdravím všechny,
mám excel s několika listy. Chtěl bych vytvořit makro, které vytiskne jen některé listy. A to podle toho zda je zakliknuté, že se má list vytisknout nebo ne. Na to mám zaškrtávací políčka, která jsou propojená i s podmíněním formátováním.

Snad je to aspoň trochu srozumitelné. Soubor v příloze by měl vše objasnit.

Díky moc

[Reklama]

[Grimm]

V souboru umístěné makro, které vytvoří náhled před tiskem podle zvoleného seznamu.

[zutano]

Díky za rychlou reakci a fungující makro. Většinu z něj nechápu, takže nejsem schopen ho upravit. Po vytištění zůstaly označené listy, které se tiskly (stejně jak když klikám na listy s podrženým CTRL), jde to udělat, aby se automaticky "odznačily" po vytištění?

Bohužel nemohu dát takto veřejně originální dokument, takže jsem vytvořil náhradní. Ten nebyl stejný, ale jen podobný. Díky tomu mi makro po zkopírování nefunguje. Tentokrát jsem dodal i další listy a další poznámky přímo do excelu. Je to poměrně přesná kopie originálního dokumentu, takže by makro mělo fungovat po zkopírování i tam. Omlouvám se za komplikace, netušil jsem, že to bude na mě tak složité. Šlo by prosím makro upravit, aby fungovalo v nově přiloženém excelu?

[Grimm]

Ahoj, tak sem předělal kód aby pracoval přímo s názvy listů, které jsou uvedeny na listě přehled (předchozí kód pracuje s indexovým číslem listu). Tím však došlo k úpravě listu přehled, konkrétně názvy listů, které se mají tiskout jsou zapsány ve sloupci B. Sloupec A obsahuje pořadí listů (1-11). Dříve bylo pořadí i název listu v jedné buňce sloupce A. Nevím jestli je to možný způsob řešení nebo je struktura listu pevně dána a nelze s ní manipulovat. Pokud by to nebylo možné dej vědět, kód by se upravil.

► Zobrazit spoiler

Kód pracuje tak, že se zjistí poslední obsazený řádek sloupce K (tedy 25). Oblast buněk B15 (zde začíná seznam názvů listů) až K25 se načte do pole Seznam. Toto pole se prochází cyklem a zjišttuje se hodnota v poslenim sloupci (true, false). Pokud je hodnota true (pravda), ze stejného řádku, ale sloupce 1 (tedy názvy listů) se vezme hodnota a zapíše se do pole Sestava.

Pole Sestava obsahuje na prvním místě (pole se číslují od 0) jméno listu "prehled", který je do pole vložen "natvrdo" na začátku kódu.
Toto pole Sestava je poté využito k zobrazení náhledu před tiskem a vybrání položky 0 tedy listu "přehled" aby se zabránilo označení tištěných listů.
Na konci kódu jsou obě pole (Seznam a Sestava) smazána.

[elninoslov]

Nepozeral som riešenie od kolegu, ale tu som urobil niečo ako nápad...

[zutano]

Díky za pomoc a nápady všem. Po malých úpravách jsem vše rozchodil jak jsem potřeboval

[Lukanec]

Ahoj,

potřebuji podobnou funkci, avšak k vytisknout chci jen zobrazené listy. Listů mám více, na základě daných pravidel uživatel otevře jen některé a ty vyplní. A právě pouze ty vyplněné a zobrazené potřebuji vytisknout. Ty skryté prázdné nikoliv, jak na to? Zaškrtávání a ruční výběr nepotřebuji, neboť listy budou tisknout uživatelé, ne já.

Děškuji

[Grimm]

Např. takto:

Kód: Vybrat vše

Option Explicit

Sub Tisk()
Dim List As Worksheet
Dim i As Long
Dim Sestava()

For Each List In ThisWorkbook.Worksheets
    If List.Visible = True Then
          ReDim Preserve Sestava(i)
           Sestava(i) = List.Name
           i = i + 1
    End If
Next List

Sheets(Sestava).PrintPreview

Erase Sestava
End Sub



[Lukanec]

Díky, funguje skvěle. Ještě by mne zajímalo, jak omezit tisk listů které jsou sice aktivní, mají pevnou oblast tisku s opakováním záhlaví. Řekněme 30 řádek. Když uživatel vyplní 30 řádků, vytiskne se pouze první stránka listu, pokud 31 vytisknou se dvě stránky listu, 61 vytisknu se tři stránky, atd. Řádky na sebe navazují, tedy není mezi nimi mezera, (od určitého řádku od záhlaví). Je to zvyšující se číselný seznam 1až N, po 1. Napadá mne funkce zjištění řádku posledního textu, nebo nejvyšší hodnotu a pozici řádku. Dle toho pak tisknut, ale nevím jak to navázat na VBA. Ať bude seznam jak chce dlouhý, budou čísla řádků vždy odpovídat pořadí zvyšující se po 1. Nějaká rada?

[Grimm]

Máš na mysli něco takového:

https://www.extendoffice.com/documents/ ... -page.html

https://social.technet.microsoft.com/Fo ... orum=excel