La Web del Programador: Comunidad de Programadores
 
    Pregunta:  23116 - DETECTAR FINAL DE IMPRESION CON CRYSTAL REPORT
Autor:  Jose g Montalvo
Como se puede detectar el final de impresion con crystal report

  Respuesta:  Jose Antonio huerta
mira lo que yo hago para poder ver si la impresion con crystal termino y se realizo correctamente es lo siguiente:

Reporte = "C:\leyes\CLIENTE\Reportes\progacad.rpt"
Impresora = 1
Ventana = 0

resultado% = PEPrintReport(Reporte, Impresora, _
Ventana, Titulo, Izq, _
Top, CW_USEDEFAULT, CW_USEDEFAULT, _
CW_USEDEFAULT, _
0)

resul = PECloseEngine()

CrystalReport1.ReportFileName = Reporte
CrystalReport1.WindowTitle = Titulo
CrystalReport1.Destination = crptToWindow
'result = CrystalReport1.PrintReport
If resul <> 0 Then
MsgBox CrystalReport1.LastErrorString
End If

ojala te sirva, =)