Galite sukurti pasirinktines spausdinimo ataskaitas pridėję VBA makrokomandą prie įprasto modulio lapo (makrokomandą galima atsisiųsti iš www.exceltip.com).
Individualizuoto spausdinimo ataskaitos struktūra:
2. A stulpelis: šiame stulpelyje yra skaičiai nuo 1 iki 3: spausdinti iš lapo, spausdinti pagal diapazono pavadinimą arba spausdinti naudojant pasirinktinį vaizdą (rekomenduojama).
3. Stulpelis B: įveskite lapo pavadinimą, diapazono pavadinimą arba pasirinktinio rodinio pavadinimą.
4. C stulpelis: įveskite puslapio numerį, kuris bus spausdinamas poraštėje.
Makrokomanda spausdins iš lapo ir automatiškai pridės reikiamą informaciją poraštėje, įskaitant puslapio numerį, darbaknygės pavadinimą, kelio adresą ir lapo pavadinimą, taip pat spausdinimo datą ir laiką.
Sub PrintReports ()
Puslapių skaičius kaip sveikasis, puslapio numeris kaip sveikasis skaičius, o kaip sveikasis skaičius
Pritemdyti „ActiveSh“ kaip darbalapį, pasirinkite „ShNameView“ kaip eilutę
Dim ShNameView kaip eilutė, langelis kaip diapazonas
Application.ScreenUpdating = Netiesa
Nustatykite „ActiveSh = ActiveSheet“
Diapazonas („a2“). Pasirinkite
Kiekvienam langeliui diapazone (diapazonas ("a2"), diapazonas ("a2"). Pabaiga (xlDown))
Pasirinkite Bylos langelis. Vertė
1 atvejis
Skaičiuoklės („ShNameView“). Pasirinkite
2 atvejis
Application.GoTo Reference: = ShNameView
3 atvejis
ActiveWorkbook.CustomViews (ShNameView). Rodyti
Pabaiga Pasirinkite
Su ActiveSheet.PageSetup
. CenterFooter.PageNumber
.LeftFooter = ActiveWorkbook.FullName & "" & "& A & T & D"
Pabaiga su
ActiveWindow.SelectedSheets.PrintOut kopijos: = 1
Kitas I.
„ActiveSh“. Pasirinkite
Application.ScreenUpdating = Tiesa
Pabaiga Sub
5. Makro kiekvienos kilpos ciklas sukelia atskirą spausdinimą kiekvienam A stulpelio langeliui, pradedant nuo A2.
6. Cikle spausdinimo sritis parenkama naudojant „Select Case“ techniką.
7. Informacija, išspausdinta kairėje poraštės pusėje: & 08 = 8 taškų šriftas, & D = data ir T = laikas.
8. Norėdami paleisti makrokomandą iš lapo, paspauskite Alt+F8, pasirinkite makrokomandą ir spustelėkite Vykdyti.
ARBA
Pridėkite mygtuką prie lapo ir pridėkite makrokomandą prie jo.
9. Pastaba: naudokite šią techniką norėdami pridėti neribotą skaičių ataskaitų.
Ekrano kopija // Tinkintos ataskaitų tvarkyklės kūrimas