如何在DATA REPORT抓在按下Print的事件(VB6)

Private Sub DataReport_AsyncProgress(ByVal JobType As MSDataReportLib.AsyncTypeConstants, ByVal Cookie As Long, ByVal PageCompleted As Long, ByVal TotalPages As Long)
If JobType = MSDataReportLib.AsyncTypeConstants.rptAsyncPrint Then
SendMail
End If
End Sub

jobtype有列印、匯出與預覽的事件
如此方便許多..
而如果用Crystal Report要抓到Print的事件
則只能自訂按鈕來取代Crystal Report內建的列印按鈕