Kopfzeile vor Ausdruck generieren
25.05.2004 13:59:44
Dennis
Da man die Kopf- und Fußzeile ja leider nicht sperren kann, habe ich meine Mappe so angepasst, dass vor dem Ausdruck die Kopf- und Fußzeilen automatisch den Inhalt einer bestimmten geschützten Zelle aus einem geschützten und versteckten Arbeitsblatt nehmen. So weit so gut, es funktioniert auch alles wunderbar.
Jetzt hörte ich von einem Kunden, dass, wenn er mehrere Arbeitsblätter mit der Strg-Taste markiert um nur diese Blätter auszudrucken, nur ein einziges Blatt in der Druckvorschau angezeigt wird statt alle markierten Arbeitsblätter. Beim Druckvorgang wird dementsprechend auch nur dieses eine Blatt gedruckt und es ist ein erheblicher Aufwand jedes Blatt einzeln auszudrucken.
Kennt jemand das Problem und einen Lösungsvorschlag?
Hier der Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call globale_tabellen
Dim blatt As Worksheet
Dim grafik As Chart
For Each blatt In Worksheets
blatt.PageSetup.CenterHeader = blatt.Name & " - " & investplan.Range("E5")
blatt.PageSetup.CenterFooter = "BLA BLA - Software by BLA BLA" & " - " & "Lizenznummer: " & Worksheets("lizenz").Range("B2")
Next blatt
For Each grafik In Charts
grafik.PageSetup.CenterHeader = grafik.Name & " - " & investplan.Range("E5")
grafik.PageSetup.CenterFooter = "BLA BLA - Software by BLA BLA" & " - " & "Lizenznummer: " & Worksheets("lizenz").Range("B2")
Next grafik
End Sub
Danke im voraus
Gruß
Dennis
Anzeige