Crystal Report - No envia nada, ni siquiera error...

Que tal foro, a continuacion pongo el codigo con el cual quiero mandar a imprimir mi informe, pero no envia nada, un error seria algo pero este canijo no envia nada y no se que pueda ser.

Agradeceria una manita.

Saludos...

Private Sub KButtImprimir_Click()
Crystal.ReportFileName = App.Path & "\Reportes\RepOT.rpt"
Crystal.DataFiles(0) = App.Path & "\BDs\BdRevisa.MDB"

Crystal.WindowState = crptMaximized
Crystal.WindowTitle = Me.Caption & "(Presione Alt-F4 para cerrar la ventana)"

Crystal.ParameterFields(0) = "OT;" & NumOrden & ";True"

Crystal.WindowBorderStyle = crptFixedDouble
Crystal.Connect = App.Path & "\BDs\BdRevisa.MDB"

Crystal.Destination = crptToWindow

Crystal.PrintReport
End Sub

De antemano,gracias...