Vlastné tlačové zostavy môžete vytvoriť pridaním makra VBA na pravidelný list modulu (makro je možné stiahnuť z www.exceltip.com).
Štruktúra správy o vlastnej tlači:
2. Stĺpec A: Tento stĺpček obsahuje čísla od 1 do 3: tlač z listu, tlač podľa názvu rozsahu alebo tlač z vlastného zobrazenia (odporúčané).
3. Stĺpec B: Zadajte názov hárka, názov rozsahu alebo názov vlastného zobrazenia.
4. Stĺpec C: Zadajte číslo strany, ktorá sa má vytlačiť v päte.
Makro sa vytlačí z listu a automaticky pridá do päty potrebné informácie vrátane čísla strany, názvu zošita, adresy cesty a názvu listu, ako aj dátumu a času tlače.
Sub PrintReports ()
Dim NumberPages as Integer, PageNumber As Integer, i As Integer
Dimovať ActiveSh ako pracovný hárok, ChooseShNameView ako reťazec
Dim ShNameView ako reťazec, bunka ako rozsah
Application.ScreenUpdating = False
Nastaviť ActiveSh = ActiveSheet
Rozsah („a2“). Vyberte
Pre každú bunku v rozsahu (rozsah ("a2"), rozsah ("a2"). Koniec (xlDown))
Vyberte bunku prípadu. Hodnota
Prípad 1
Tabuľky (ShNameView). Vyberte
Prípad 2
Application.GoTo Reference: = ShNameView
Prípad 3
ActiveWorkbook.CustomViews (ShNameView). Zobraziť
Ukončiť výber
S ActiveSheet.PageSetup
. CenterFooter.PageNumber
.LeftFooter = ActiveWorkbook.FullName & "" & "& A & T & D"
Ukončiť s
Kópie ActiveWindow.SelectedSheets.PrintOut: = 1
Ďalej i
ActiveSh.Select
Application.ScreenUpdating = True
Koniec pod
5. Slučka For Every v makre spôsobí oddelenú tlač pre každú bunku v stĺpci A od A2.
6. V slučke sa tlačová oblasť vyberie technikou Select Case.
7. Informácie vytlačené na ľavej strane päty: & 08 = 8 -bodové písmo, & D = dátum, & T = čas.
8. Ak chcete makro spustiť z hárka, stlačte kombináciu klávesov Alt+F8, vyberte makro a kliknite na položku Spustiť.
ALEBO
Pridajte do hárka tlačidlo a priložte k nemu makro.
9. Poznámka: Túto techniku použite na pridanie neobmedzeného počtu správ.
Snímka obrazovky // Vytvorenie vlastného správcu zostáv