Du kan skapa anpassade utskriftsrapporter genom att lägga till VBA -makro i ett vanligt modulblad (makrot kan laddas ner från www.exceltip.com).
Struktur för den anpassade utskriftsrapporten:
2. Kolumn A: Den här kolumnen innehåller siffror mellan 1 och 3: skriv ut från ark, skriv ut efter intervallnamn eller skriv ut från anpassad vy (rekommenderas).
3. Kolumn B: Skriv arknamnet, intervallnamnet eller namnet Custom View.
4. Kolumn C: Skriv sidnumret som ska skrivas ut i sidfoten.
Makrot kommer att skriva ut från ett ark och automatiskt lägga till nödvändig information i sidfoten, inklusive sidnummer, arbetsboknamn, sökadress och bladnamn, samt datum och tid för utskrift.
Sub PrintReports ()
Dim NumberPages As Integer, PageNumber As Integer, i As Integer
Dim ActiveSh som kalkylblad, VäljShNameView som sträng
Dim ShNameView As String, cell As Range
Application.ScreenUpdating = Falskt
Ange ActiveSh = ActiveSheet
Område ("a2"). Välj
För varje cell i intervall (intervall ("a2"), intervall ("a2"). Slut (xlDown))
Välj fallcell. Värde
Fall 1
Ark (ShNameView) .Välj
Fall 2
Application.GoTo -referens: = ShNameView
Fall 3
ActiveWorkbook.CustomViews (ShNameView). Visa
Avsluta Välj
Med ActiveSheet.PageSetup
. CenterFooter.PageNumber
.LeftFooter = ActiveWorkbook.FullName & "" & "& A & T & D"
Sluta med
ActiveWindow.SelectedSheets.PrintOut -kopior: = 1
Nästa i
ActiveSh.Select
Application.ScreenUpdating = True
Avsluta Sub
5. För varje loop i makrot orsakar en separat utskrift för varje cell i kolumn A som börjar med A2.
6. I slingan väljs utskriftsområdet med hjälp av Select Case -tekniken.
7. Informationen som skrivs ut på sidfotens vänstra sida: & 08 = 8 -punktsteckensnitt, & D = Datum, & T = Tid.
8. Om du vill köra makrot från arket trycker du på Alt+F8, markerar makrot och klickar på Kör.
ELLER
Lägg till en knapp på arket och fäst makrot på det.
9. Obs! Använd denna teknik för att lägga till ett obegränsat antal rapporter.
Skärmdump // Skapa en anpassad rapporthanterare