Saate luua kohandatud printimisaruandeid, lisades tavalisele moodulilehele VBA makro (makro saab alla laadida saidilt www.exceltip.com).
Kohandatud printimisaruande struktuur:
2. Veerg A: See veerg sisaldab numbreid vahemikus 1 kuni 3: printige lehelt, printige vahemiku nime järgi või printige kohandatud vaates (soovitatav).
3. Veerg B: tippige lehe nimi, vahemiku nimi või kohandatud vaate nimi.
4. Veerg C: tippige jalusele trükitava lehe number.
Makro prindib lehelt ja lisab jalusele automaatselt vajaliku teabe, sealhulgas lehe numbri, töövihiku nime, tee aadressi ja lehe nime ning printimise kuupäeva ja kellaaja.
Sub PrintReports ()
Dim NumberPages täisarvuna, PageNumber täisarvuna ja i täisarvuna
Hämardage ActiveSh töölehena, valige stringinaShNameView
Dim ShNameView kui string, lahter kui vahemik
Application.ScreenUpdating = Vale
Määrake ActiveSh = ActiveSheet
Vahemik ("a2"). Valige
Iga lahtri vahemikus (vahemik ("a2"), vahemik ("a2"). Lõpp (xlDown))
Valige Väikelahtri väärtus
Juhtum 1
Arvutustabelid (ShNameView). Valige
Juhtum 2
Application.GoTo Reference: = ShNameView
Juhtum 3
ActiveWorkbook.CustomViews (ShNameView). Näita
Lõpp Vali
ActiveSheet.PageSetup abil
. CenterFooter.PageNumber
.LeftFooter = ActiveWorkbook.FullName & "" & "& A & T & D"
Lõpeta
ActiveWindow.SelectedSheets.PrintOut koopiad: = 1
Edasi i
ActiveSh. Valige
Application.ScreenUpdating = Tõsi
End Sub
5. Makro iga silmuse jaoks põhjustab iga veeru A lahtri jaoks eraldi printimise, alustades A2 -st.
6. Tsüklis valitakse printimisala, kasutades tehnikat Select Case.
7. Jaluse vasakule küljele trükitud teave: & 08 = 8 -punktine font, & D = kuupäev ja T = kellaaeg.
8. Makro käivitamiseks lehelt vajutage klahvikombinatsiooni Alt+F8, valige makro ja klõpsake nuppu Käivita.
VÕI
Lisage lehele nupp ja kinnitage sellele makro.
9. Märkus. Kasutage seda tehnikat piiramatu arvu aruannete lisamiseks.
Ekraanipilt // Kohandatud aruandehalduri loomine
