Crystal Reports, How to get an event when it's done printing ?

[CVMichael]

I need to know when the report is done printing, right now i'm using this code:

Dim application As CRAXDRT.application
 Dim Report As CRAXDDRT.Report
 Dim ReportFileName As String
 Dim ReportName As String
 
 Set application = New CRAXDRT.application
 
 ReportFileName = gblAppPath & "Reports\Label.rpt"
 Set Report = application.OpenReport(ReportFileName)
 Report.PrintOut (False)
 
 ' ** WAIT UNTIL REPORT IS DONE PRINTING *** 
 
 Set Report = Nothing
 Set application = Nothing
 
 ' Some other code here...

Another question:
How do I know what was printer and what not, in case the printing was cancelled ?