Vlastní tiskové sestavy můžete vytvořit přidáním makra VBA na běžný list modulu (makro lze stáhnout z www.exceltip.com).
Struktura sestavy vlastního tisku:
2. Sloupec A: Tento sloupec obsahuje čísla mezi 1 a 3: tisk z listu, tisk podle názvu rozsahu nebo tisk z vlastního zobrazení (doporučeno).
3. Sloupec B: Zadejte název listu, název rozsahu nebo název vlastního zobrazení.
4. Sloupec C: Zadejte číslo stránky, která se má vytisknout v zápatí.
Makro se vytiskne z listu a automaticky přidá do zápatí potřebné informace, včetně čísla stránky, názvu sešitu, adresy cesty a názvu listu, stejně jako data a času tisku.
Dílčí tiskové sestavy ()
Dim NumberPages as Integer, PageNumber As Integer, i As Integer
Dim ActiveSh jako list, ChooseShNameView jako řetězec
Dim ShNameView jako řetězec, buňka jako rozsah
Application.ScreenUpdating = False
Nastavit ActiveSh = ActiveSheet
Rozsah („a2“). Vyberte
Pro každou buňku v rozsahu (rozsah ("a2"), rozsah ("a2"). Konec (xlDown))
Vyberte Case case.Value
Případ 1
Listy (ShNameView). Vyberte
Případ 2
Reference Application.GoTo: = ShNameView
Případ 3
ActiveWorkbook.CustomViews (ShNameView). Show
Konec Vybrat
S ActiveSheet.PageSetup
. CenterFooter.PageNumber
.LeftFooter = ActiveWorkbook.FullName & "" & "& A & T & D"
Konec s
Kopie ActiveWindow.SelectedSheets.PrintOut: = 1
Příště já
ActiveSh.Select
Application.ScreenUpdating = True
End Sub
5. Smyčka For Every v makru způsobí samostatný tisk pro každou buňku ve sloupci A od A2.
6. Ve smyčce je oblast tisku vybrána pomocí techniky Select Case.
7. Informace vytištěné na levé straně zápatí: & 08 = 8bodové písmo, & D = datum, & T = čas.
8. Chcete -li spustit makro z listu, stiskněte Alt+F8, vyberte makro a klikněte na Spustit.
NEBO
Přidejte na list tlačítko a připojte k němu makro.
9. Poznámka: Pomocí této techniky můžete přidat neomezený počet sestav.
Snímek obrazovky // Vytvoření vlastního správce sestav