hallo roll_.

ich habe dir ein Beispiel, wie ich das gemacht habe um auf meinem Form anstatt auf den Drucken Commandbutton zu klicken ich einfach nur noch Alt + D auf der Tastatur eingeben musste. Ich bin sicher du kannst das passend für dich umschreiben.

Code:
Private Sub cmdDrucken_KeyPress(KeyAscii As Integer)
Do
   DoEvents
   vbKeyAltD = Me.cmdDrucken
Loop
End Sub
gruss commander7