Erstellen eines benutzerdefinierten Berichts-Manager
Sie können benutzerdefinierte Druckberichte erstellen, indem Sie einem regulären Modulblatt ein VBA-Makro hinzufügen (das Makro kann von www.exceltip.com heruntergeladen werden).
Struktur des benutzerdefinierten Druckberichts:
{leer} 2. Spalte A: Diese Spalte enthält Zahlen zwischen 1 und 3: Drucken von Blatt, Drucken nach Bereichsnamen oder Drucken aus benutzerdefinierter Ansicht (empfohlen).
-
Spalte B: Geben Sie den Blattnamen, den Bereichsnamen oder den Namen der benutzerdefinierten Ansicht ein.
-
Spalte C: Geben Sie die Seitenzahl ein, die in der Fußzeile gedruckt werden soll.
Das Makro druckt von einem Blatt und fügt der Fußzeile automatisch die erforderlichen Informationen hinzu, einschließlich Seitenzahl, Arbeitsmappenname, Pfadadresse und Blattname sowie Datum und Uhrzeit des Drucks.
Sub PrintReports ()
Dim NumberPages As Integer, PageNumber As Integer, i As Integer Dim ActiveSh As Worksheet, ChooseShNameView As String Dim ShNameView As String, Zelle As Range Application.ScreenUpdating = False Set ActiveSh = ActiveSheet Range („a2“). Wählen Sie für jede Zelle im Bereich (Bereich („a2“), Bereich („a2“). Ende (xlDown))
Fall auswählen cell.Value Case 1 Sheets (ShNameView) .Select Case 2 Application.GoTo Reference: = ShNameView Case 3 ActiveWorkbook.CustomViews (ShNameView) .Show End Select With ActiveSheet.PageSetup. CenterFooter.PageNumber .LeftFooter = ActiveWorkbook.FullName & „“ & „& A & T & D“
Beenden mit ActiveWindow.SelectedSheets.PrintOut-Kopien: = 1 Weiter i ActiveSh.Select Application.ScreenUpdating = True End Sub {leer} 5. Die For Each-Schleife im Makro bewirkt einen separaten Druck für jede Zelle in Spalte A, beginnend bei A2.
-
In der Schleife wird der Druckbereich mithilfe der Select Case-Technik ausgewählt.
-
Die Informationen auf der linken Seite der Fußzeile: & 08 = 8-Punkt-Schriftart, & D = Datum, & T = Uhrzeit.
-
Um das Makro auf dem Blatt auszuführen, drücken Sie Alt + F8, wählen Sie das Makro aus und klicken Sie auf Ausführen.
ODER Fügen Sie dem Blatt eine Schaltfläche hinzu und hängen Sie das Makro daran an.
-
Hinweis: Verwenden Sie diese Technik, um eine unbegrenzte Anzahl von Berichten hinzuzufügen.