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

   
Vista:

No envia nada, ni siquiera error...

Publicado por Omar (4 intervenciones) el 20/11/2007 23:20:00
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...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder