Voit luoda mukautettuja tulostusraportteja lisäämällä VBA -makron tavalliseen moduulitaulukkoon (makron voi ladata osoitteesta www.exceltip.com).
Mukautetun tulostusraportin rakenne:
2. Sarake A: Tässä sarakkeessa on numeroita 1–3: tulosta arkilta, tulosta alueen nimen mukaan tai tulosta mukautetusta näkymästä (suositus).
3. Sarake B: Kirjoita taulukon nimi, alueen nimi tai mukautetun näkymän nimi.
4. Sarake C: Kirjoita alatunnisteeseen tulostettavan sivun numero.
Makro tulostaa arkista ja lisää alatunnisteeseen automaattisesti tarvittavat tiedot, kuten sivun numeron, työkirjan nimen, polun osoitteen ja arkin nimen sekä tulostuspäivämäärän ja -ajan.
Sub PrintReports ()
Himmennä Sivut kokonaislukuna, Sivunumero kokonaislukuna ja i Kokonaislukuna
Himmennä ActiveSh laskentataulukkona, valitseShNameView merkkijonona
Dim ShNameView merkkijonona, solu alueena
Application.ScreenUpdating = Väärä
Aseta ActiveSh = ActiveSheet
Alue ("a2"). Valitse
Jokaiselle alueen solulle (alue ("a2"), alue ("a2"). Loppu (xlDown))
Valitse Case cell.Value
Tapaus 1
Sheets (ShNameView) Valitse
Tapaus 2
Application.GoTo Reference: = ShNameView
Tapaus 3
ActiveWorkbook.CustomViews (ShNameView) .Näytä
Lopeta Valitse
ActiveSheet.PageSetup
. CenterFooter.PageNumber
.LeftFooter = ActiveWorkbook.FullName & "" & "& A & T & D"
Lopeta
ActiveWindow.SelectedSheets.PrintOut -kopiot: = 1
Seuraavaksi minä
ActiveSh.Valitse
Application.ScreenUpdating = Totta
End Sub
5. Makron jokaisen silmukan tulostus aiheuttaa erillisen tulostuksen sarakkeen A jokaiselle solulle, alkaen kohdasta A2.
6. Silmukassa tulostusalue valitaan Select Case -tekniikalla.
7. alatunnisteen vasemmalle puolelle painetut tiedot: & 08 = 8 pisteen fontti, & D = päivämäärä ja T = aika.
8. Jos haluat suorittaa makron taulukosta, paina Alt+F8, valitse makro ja napsauta Suorita.
TAI
Lisää arkkiin painike ja liitä makro siihen.
9. Huomautus: Tällä tekniikalla voit lisätä rajoittamattoman määrän raportteja.
Kuvakaappaus // Mukautetun raportinhallinnan luominen