VBA Code Schriftart
23.02.2017 09:33:52
BuStue
ich möchte bestimmte dynamische Informationen in der linken Kopfzeile unterbringen.
Dazu soll aus Zelle R1 die Blattnummer mit dem aktuellen Datum verbunden werden und dies mit _
der Schriftart IDAutomationHC39M als Barcode ausgegeben werden.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = "&IDAutomationHC39M" & Range("R1").Value & "_ " & Format( _
Date, "dd_mm_yyyy")
End Sub
Die Anweisung funktioniert, bis auf das die Schriftart nicht gezogen wird. Hier wird nur der Name der Schriftart vorangestellt. Ich möchte aber, das die Ausgabe so formiert wird.
Kann mir hierbei jemand helfen.
Mit freundlichen Grüßen
Burghard
Anzeige