short cut key for crystal report PRINT option in vb.Net 2008

Set KeyPreview=True for your form, so that key pressed over any controls gets to the Form1_KeyPress.

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
  If e.Control And e.KeyCode = Keys.P Then
    'here goes your code to print the report
    CrystalReportViewer1.PrintReport()
  End If
End Sub

I like to create shortcut keys by using menu objects and then hiding them by setting visibility to false. You can setup the menuItem with whatever shortcut key(s) you want and add the code you want it to execute in the click event.