Pessoal, estou querendo criar uma facilidade no ActiveReport com Letras para os eventos dos botões, tipo para o botão "SAIR", letra [S], assim por diante. Mas para o botão "PRINT", letra [P], no evento assim:

 

Private Sub ActiveReport_KeyDown(KeyCode As Integer, ByVal Shift As Integer)

   If KeyCode = vbKeyS Then   'Sair
      Unload Me
   End If

   If KeyCode = vbKeyP           'Imprimir

-->     como faço para chamar a execução do botão imprimir??

   End If

End Sub
Obrigado!