Poročila za tiskanje po meri lahko ustvarite tako, da dodate makro VBA na običajen list modulov (makro lahko prenesete s spletnega mesta www.exceltip.com).
Struktura poročila o tiskanju po meri:
2. Stolpec A: Ta stolpec vsebuje številke med 1 in 3: tiskanje s lista, tiskanje po imenu obsega ali tiskanje iz pogleda po meri (priporočeno).
3. Stolpec B: Vnesite ime lista, ime obsega ali ime pogleda po meri.
4. Stolpec C: Vnesite številko strani, ki jo želite natisniti v nogi.
Makro se natisne z lista in samodejno doda v nogo potrebne podatke, vključno s številko strani, imenom delovnega zvezka, naslovom poti in imenom lista ter datumom in časom tiskanja.
Sub PrintReports ()
Zatemni število strani kot celo število, številko strani kot celo število, i kot celo število
Zatemni ActiveSh kot delovni list, izberiteShNameView As String
Zatemni ShNameView kot niz, celica kot obseg
Application.ScreenUpdating = Napačno
Nastavite ActiveSh = ActiveSheet
Razpon ("a2"). Izberite
Za vsako celico v razponu (obseg ("a2"), obseg ("a2"). Konec (xlDown))
Izberite celico velike črke
Primer 1
Listi (ShNameView) .Izberi
Primer 2
Referenca Application.GoTo: = ShNameView
Primer 3
ActiveWorkbook.CustomViews (ShNameView) .Show
Konec Izberite
Z ActiveSheet.PageSetup
. CenterFooter.PageNumber
.LeftFooter = ActiveWorkbook.FullName & "" & "& A & T & D"
Končaj s
ActiveWindow.SelectedSheets.PrintOut Kopije: = 1
Naprej i
ActiveSh.Izberi
Application.ScreenUpdating = Res
End Sub
5. Zanka For Every v makru povzroči ločen izpis za vsako celico v stolpcu A, ki se začne pri A2.
6. V zanki je območje tiskanja izbrano s tehniko Select Case.
7. Podatki, natisnjeni na levi strani noge: & 08 = 8 -mestna pisava, & D = Datum, & T = Čas.
8. Če želite zagnati makro s lista, pritisnite Alt+F8, izberite makro in kliknite Zaženi.
ALI
Na list dodajte gumb in mu pritrdite makro.
9. Opomba: S to tehniko dodajte neomejeno število poročil.
Posnetek zaslona // Ustvarjanje upravitelja poročil po meri