U kunt aangepaste afdrukrapporten maken door VBA-macro toe te voegen aan een gewoon moduleblad (de macro kan worden gedownload van www.exceltip.com).
Structuur van het aangepaste afdrukrapport:
2. Kolom A: Deze kolom bevat getallen tussen 1 en 3: afdrukken vanaf blad, afdrukken op bereiknaam of afdrukken vanuit aangepaste weergave (aanbevolen).
3. Kolom B: Typ de bladnaam, de bereiknaam of de naam van de aangepaste weergave.
4. Kolom C: Typ het paginanummer dat in de voettekst moet worden afgedrukt.
De macro wordt afgedrukt vanaf een blad en voegt automatisch de benodigde informatie toe aan de voettekst, inclusief paginanummer, werkmapnaam, padadres en bladnaam, evenals de datum en tijd van afdrukken.
Sub PrintReports()
Dim NumberPagina's als geheel getal, paginanummer als geheel getal, i als geheel getal
Dim ActiveSh als werkblad, kies ShNameView As String
Dim ShNameView As String, cel As Range
Application.ScreenUpdating = False
Stel ActiveSh = ActiveSheet in
Bereik ("a2"). Selecteer
Voor elke cel In Range(Range("a2"), Range("a2").End(xlDown))
Selecteer Case cel.Waarde
Zaak 1
Bladen (ShNameView).Selecteer
Geval 2
Application.GoTo Reference:=ShNameView
Geval 3
ActiveWorkbook.CustomViews(ShNameView).Toon
Einde Selecteren
Met ActiveSheet.PageSetup
. CenterFooter.PageNumber
.LeftFooter = ActiveWorkbook.FullName & " " & "&A &T &D"
Eindigt met
ActiveWindow.SelectedSheets.PrintOut Kopieën:=1
volgende i
ActiveSh.Select
Application.ScreenUpdating = True
Einde sub
5. De For Each-lus in de macro zorgt voor een aparte afdruk voor elke cel in kolom A vanaf A2.
6. In de loop wordt het afdrukgebied geselecteerd met behulp van de Select Case-techniek.
7. De informatie aan de linkerkant van de voettekst: &08 = 8-punts lettertype, &D = Datum, &T = Tijd.
8. Om de macro vanaf het werkblad uit te voeren, drukt u op Alt+F8, selecteert u de macro en klikt u op Uitvoeren.
OF
Voeg een knop toe aan het blad en voeg de macro eraan toe.
9. Let op: Gebruik deze techniek om een onbeperkt aantal rapporten toe te voegen.
Screenshot // Een aangepast rapportbeheer maken
