Sub PrintNote()
'Graham Mayor - https://www.gmayor.com - Last updated - 10 Sep 2020 

Dim olNote As Outlook.NoteItem
Dim olTempNote As Outlook.NoteItem
Dim dDate As Date
Dim strDate As String
    On Error Resume Next
    Select Case Outlook.Application.ActiveWindow.Class
        Case olInspector
            Set olNote = ActiveInspector.currentItem
        Case olExplorer
            Set olNote = Application.ActiveExplorer.Selection.Item(1)
    End Select
    dDate = Split(olNote.CreationTime, Chr(32))(0)
    strDate = "Created:" & vbTab & Format(CStr(dDate), "ddd ") & olNote.CreationTime
    Set olTempNote = CreateItem(olNoteItem)
    With olTempNote
        .Body = "Created:" & vbTab & Format(CStr(dDate), "ddd ") & _
                olNote.CreationTime & vbCr & vbCr & _
                olNote.Body
        .PrintOut
        .Delete
    End With
lbl_Exit:
    Set olNote = Nothing
    Set olTempNote = Nothing
    Exit Sub
End Sub