Du kan opprette en egendefinert utskriftsrapport ved å legge VBA -makro til et vanlig modulark (makroen kan lastes ned fra www.exceltip.com).
Strukturen i den tilpassede utskriftsrapporten:
2. Kolonne A: Denne kolonnen inneholder tall mellom 1 og 3: skrive ut fra ark, skrive ut etter områdenavn eller skrive ut fra tilpasset visning (anbefalt).
3. Kolonne B: Skriv inn arknavn, områdeområde eller navn på tilpasset visning.
4. Kolonne C: Skriv inn sidetallet som skal skrives ut i bunnteksten.
Makroen vil skrive ut fra et ark og automatisk legge til nødvendig informasjon i bunnteksten, inkludert sidetall, arbeidsboknavn, stiadresse og arknavn, samt dato og klokkeslett for utskrift.
Sub PrintReports ()
Dim NumberPages As Integer, PageNumber As Integer, i As Integer
Demp ActiveSh som regneark, velgShNameView som streng
Dim ShNameView As String, cell As Range
Application.ScreenUpdating = Falsk
Angi ActiveSh = ActiveSheet
Område ("a2"). Velg
For hver celle i område (område ("a2"), område ("a2"). Slutt (xlDown))
Velg bokstavcelle. Verdi
Sak 1
Ark (ShNameView) .Velg
Sak 2
Application.GoTo Reference: = ShNameView
Sak 3
ActiveWorkbook.CustomViews (ShNameView) .Vis
Avslutt Velg
Med ActiveSheet.PageSetup
. CenterFooter.PageNumber
.LeftFooter = ActiveWorkbook.FullName & "" & "& A & T & D"
Slutt med
ActiveWindow.SelectedSheets.PrintOut -kopier: = 1
Neste jeg
Velg ActiveSh
Application.ScreenUpdating = True
Slutt Sub
5. For hver sløyfe i makroen forårsaker en egen utskrift for hver celle i kolonne A som starter med A2.
6. I sløyfen velges utskriftsområdet ved hjelp av Select Case -teknikken.
7. Informasjonen som skrives ut på venstre side av bunnteksten: & 08 = 8 -punkts skrift, & D = Dato, & T = Tid.
8. For å kjøre makroen fra arket, trykk Alt+F8, velg makroen og klikk Kjør.
ELLER
Legg til en knapp på arket og fest makroen til den.
9. Merk: Bruk denne teknikken til å legge til et ubegrenset antall rapporter.
Skjermbilde // Opprette en tilpasset rapportbehandling