[Spirosgr]

Καλησπέρα
Κατ' αρχάς, να πούμε για όσους μας διαβάζουν,
ότι η εικόνα θα πρέπει να είναι μορφής .bmp

Τώρα...
Μπορείς να βάλεις μια εντολή, σε ένα κουμπί στο φύλλο, πχ (παραλληλόγραμμο σχήμα)

Sub Rectangle1_Click()
    If UserForm1.Visible = True Then UserForm1.PrintForm
End Sub

ή σε κάποιο άλλο τύπο κουμπιού,
αυτό όμως απαιτεί, η ιδιότητα ShowModal της φόρμας, να είναι False.

Από την άλλη...
Θα μπορούσες επάνω στην φόρμα,
στην Label4 για παράδειγμα, (ΣΥΛΛΟΓΟΣ ΔΡΟΜΕΩΝ ΥΓΕΙΑΣ)
να βάλεις αυτό

Private Sub Label4_Click()
    Me.PrintForm
End Sub

και να εκτυπώνεις, απευθείας από την φόρμα, στο Event Click της Label...