Print af attachments

Hej
Følgende kikker på attachments:

Sub PrintAttachments()
'On Error GoTo fejl
    Dim myOlApp As New Outlook.Application
    Dim myItem As MailItem, i As Integer
    Set myItem = myOlApp.ActiveInspector.CurrentItem
   
    For i = 1 To myItem.Attachments.Count
        MsgBox myItem.Attachments.Item(i).DisplayName
    Next i
   
    Exit Sub
fejl:
    MsgBox "Fejl: " & Err.Description

End Sub

Istedet for blot at vise filnavnet, vil jeg gerne printe de vedhæftede filer ud. Umiddelbart findes der ikke en metode på attachment der printer. Det kan jo bare ikke passe...

Hvordan får jeg dem lettest udskrevet? Det er på en åbnet mail, ikke fra oversigten ved indbakken, hvor der findes en afkrydsning i printdialogboksen.