Možete stvoriti prilagođena izvješća o ispisu dodavanjem VBA makronaredbe na običan list modula (makronaredbu možete preuzeti s www.exceltip.com).
Struktura prilagođenog ispisa izvješća:
2. Stupac A: Ovaj stupac sadrži brojeve između 1 i 3: ispis s lista, ispis prema nazivu raspona ili ispis iz prilagođenog prikaza (preporučeno).
3. Stupac B: Upišite naziv lista, naziv raspona ili naziv prilagođenog prikaza.
4. Stupac C: Upišite broj stranice koja će se ispisati u podnožju.
Makronaredba će se ispisati s lista i automatski dodati potrebne podatke u podnožje, uključujući broj stranice, naziv radne knjige, adresu puta i naziv lista, kao i datum i vrijeme ispisa.
Podispisi izvješća ()
Dim NumberPages As Integer, PageNumber As Integer, i As Integer
Zatamnite ActiveSh kao radni list, odaberiteShNameView kao niz
Dim ShNameView As String, ćelija kao raspon
Application.ScreenUpdating = Netačno
Postavite ActiveSh = ActiveSheet
Raspon ("a2"). Odaberite
Za svaku ćeliju u rasponu (raspon ("a2"), raspon ("a2"). Kraj (xlDown))
Odaberite Slučajna ćelija.Vrijednost
Slučaj 1
Tablice (ShNameView) .Odaberi
Slučaj 2
Application.GoTo Referenca: = ShNameView
Slučaj 3
ActiveWorkbook.CustomViews (ShNameView) .Prikaži
Kraj Odaberite
S ActiveSheet.PageSetup
. CenterFooter.Broj stranice
.LeftFooter = ActiveWorkbook.FullName & "" & "& A & T & D"
Završi s
ActiveWindow.SelectedSheets.PrintOut Kopije: = 1
Sljedeći i
ActiveSh.Odaberi
Application.ScreenUpdating = Istina
Kraj podm
5. Petlja For Every u makronaredbi uzrokuje zaseban ispis za svaku ćeliju u stupcu A, počevši od A2.
6. U petlji se područje ispisa bira tehnikom Select Case Select.
7. Podaci ispisani na lijevoj strani podnožja: & 08 = Font od 8 točaka, & D = Datum, & T = Vrijeme.
8. Za pokretanje makronaredbe s lista pritisnite Alt+F8, odaberite makro i kliknite Pokreni.
ILI
Dodajte gumb na list i priložite mu makro.
9. Napomena: Ovom tehnikom dodajte neograničen broj izvješća.
Snimka zaslona // Stvaranje prilagođenog upravitelja izvješća