VBA - nastavení více oblastí pro tisk

[Pon1]

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

[Kurimak]

Něco jsem zkusil. Je to jen nástřel. Vše se tiskne na výchozí tiskárně. Nastavení konkrétních vlastností tisku by bylo třeba ještě doplnit. Makro tiskne oblasti obsahující konstanty a vzorce.

Kód: Vybrat vše

Sub Tisk_vice_oblasti()

Dim Oblast As Range
Dim Podoblast As Range

Set Oblast = Union(ActiveSheet.Cells.SpecialCells(xlCellTypeConstants), ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas))

For Each Podoblast In Oblast.Areas

Podoblast.PrintOut

Next Podoblast

End Sub