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:
2. Spalte A: Diese Spalte enthält Zahlen zwischen 1 und 3: Drucken vom Blatt, Drucken nach Bereichsnamen oder Drucken aus der benutzerdefinierten Ansicht (empfohlen).
3. Spalte B: Geben Sie den Blattnamen, den Bereichsnamen oder den Namen der benutzerdefinierten Ansicht ein.
4. Spalte C: Geben Sie die Seitenzahl ein, die in der Fußzeile gedruckt werden soll.
Das Makro druckt von einem Blatt aus und fügt automatisch die erforderlichen Informationen in die Fußzeile ein, einschließlich Seitennummer, Arbeitsmappenname, Pfadadresse und Blattname sowie Datum und Uhrzeit des Drucks.
UnterdruckBerichte()
Dim NumberPages As Integer, PageNumber As Integer, i As Integer
Dim ActiveSh als Arbeitsblatt, ChooseShNameView As String
Dim ShNameView als String, Zelle als Bereich
Application.ScreenUpdating = False
Set ActiveSh = ActiveSheet
Range("a2").Select
Für jede Zelle in Range(Range("a2"), Range("a2").End(xlDown))
Wählen Sie Case cell.Value
Fall 1
Blätter(ShNameView).Wählen
Fall 2
Application.GoTo-Referenz:=ShNameView
Fall 3
ActiveWorkbook.CustomViews(ShNameView).Show
Auswahl beenden
Mit ActiveSheet.PageSetup
. CenterFooter.PageNumber
.LeftFooter = ActiveWorkbook.FullName & " " & "&A &T &D"
Ende mit
ActiveWindow.SelectedSheets.PrintOut Kopien:=1
Als nächstes
ActiveSh.Select
Application.ScreenUpdating = True
End Sub
5. Die For Each-Schleife in dem Makro bewirkt einen separaten Druck für jede Zelle in Spalte A, die bei A2 beginnt.
6. In der Schleife wird der Druckbereich mit der Select Case-Technik ausgewählt.
7. Die auf der linken Seite der Fußzeile gedruckten Informationen: &08 = 8-Punkt-Schriftart, &D = Datum, &T = Uhrzeit.
8. Um das Makro vom Blatt aus 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.
9. Hinweis: Verwenden Sie diese Technik, um eine unbegrenzte Anzahl von Berichten hinzuzufügen.
Screenshot // Erstellen eines benutzerdefinierten Berichtsmanagers