|
Hallo,
Natürlich, hier ist eine verbesserte Version deines Codes, die das Makro aktiviert, wenn du die Tastenkombination Strg + P (Drucken) verwendest. Beachte jedoch, dass dies im Arbeitsblattmodul und nicht im Standardmodul sein sollte, da es sich um ein Ereignis für das Arbeitsblatt handelt:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'***********************Für PFC angewendet um Daten in die Kopfzeile zu schreiben*****************************
On Error Resume Next ' Fehler ignorieren, wenn die Daten nicht gefunden werden können
With Me.Sheets("Standards").PageSetup
.LeftHeader = Me.Sheets("Standards").Range("I6") & vbLf & "Rev.: " & Me.Sheets("Standards").Range("I4") & vbLf & "Date (Rev.): " & Me.Sheets("Standards").Range("I5")
'.CenterHeader = Range("B1")
'.RightHeader = Range("C1")
End With
On Error GoTo 0 ' Fehlerbehandlung wieder aktivieren
End Sub
In diesem verbesserten Code habe ich das Ereignis Workbook_BeforePrint verwendet, das ausgelöst wird, bevor das Workbook (Arbeitsmappe) gedruckt wird, und die Daten in die Kopfzeile einfügt. Wenn keine entsprechenden Daten gefunden werden können, wird ein Fehler ignoriert. Du solltest sicherstellen, dass der Code im ThisWorkbook-Modul deines Excel-Arbeitsmappenprojekts platziert ist.
' Autor und Copyright: Valery Bidakovsky
' Homepage: https://www.vb-analyst.de
|