Druckdatum in Fußzeile via eigenem Druckbutton
Jonathan
ich stehe vor folgendem Problem:
In einer Excel-Datei lassen sich einige Sheets über einen CommandButton (welcher das Druckmenü aufruft) ausdrucken.
Nun habe ich hier im Forum einen Code entdeckt, welcher mir bevor ein Sheet ausgedruckt wird das Druckdatum in eine Zelle schreibt (ist notwendig für die Übersichtlichkeit) und in die rechte Fußzeile schreibt. Dies funktioniert auch wunderbar wenn ich das jeweilige Sheet über die reguläre Druckfunktion ausdrucke - rufe ich das Druckmenü über den CommandButton (Application.Dialogs(xlDialogPrint).Show) auf gehts nicht...
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Kennzahlen 2190" Then
Worksheets("Einstellungen").Range("K16") = Date
ActiveSheet.PageSetup.RightFooter = Worksheets("Einstellungen").Range("L16")
End If
End Sub
Gruß
Jonathan
Anzeige