Du kan oprette en brugerdefineret udskrivningsrapport ved at tilføje VBA -makro til et almindeligt modulark (makroen kan downloades fra www.exceltip.com).
Opbygning af den tilpassede udskrivningsrapport:
2. Kolonne A: Denne kolonne indeholder tal mellem 1 og 3: udskriv fra ark, udskriv efter områdenavn eller udskriv fra tilpasset visning (anbefales).
3. Kolonne B: Skriv arknavnet, områdenavnet eller navnet på brugerdefineret visning.
4. Kolonne C: Indtast det sidetal, der skal udskrives i sidefoden.
Makroen udskriver fra et ark og tilføjer automatisk de nødvendige oplysninger til sidefoden, herunder sidetal, projektmappes navn, stiadresse og arknavn samt dato og klokkeslæt for udskrivning.
Sub PrintReports ()
Dim NumberPages As Integer, PageNumber As Integer, i As Integer
Dim ActiveSh som regneark, VælgShNameView som streng
Dim ShNameView som streng, celle som område
Application.ScreenUpdating = Falsk
Indstil ActiveSh = ActiveSheet
Område ("a2"). Vælg
For hver celle i område (område ("a2"), område ("a2"). Afslut (xlDown))
Vælg sagcelle. Værdi
Sag 1
Ark (ShNameView) .Vælg
Sag 2
Application.GoTo Reference: = ShNameView
Sag 3
ActiveWorkbook.CustomViews (ShNameView) .Vis
Afslut Vælg
Med ActiveSheet.PageSetup
. CenterFooter.PageNumber
.LeftFooter = ActiveWorkbook.FullName & "" & "& A & T & D"
Afslut med
ActiveWindow.SelectedSheets.PrintOut -kopier: = 1
Næste i
ActiveSh.Select
Application.ScreenUpdating = True
Afslut Sub
5. For hver loop i makroen forårsager en separat udskrivning for hver celle i kolonne A, der starter ved A2.
6. I løkken vælges udskriftsområdet ved hjælp af Select Case -teknikken.
7. De oplysninger, der er udskrevet i venstre side af sidefoden: & 08 = 8 -punkts skrifttype, & D = Dato, & T = Tid.
8. Hvis du vil køre makroen fra arket, skal du trykke på Alt+F8, vælge makroen og klikke på Kør.
ELLER
Tilføj en knap til arket, og vedhæft makroen til det.
9. Bemærk: Brug denne teknik til at tilføje et ubegrænset antal rapporter.
Skærmbillede // Oprettelse af en tilpasset rapportstyring