Pasar parametros a un informe crystal reports

Copiado de un posting anterior...

Te envío un ejemplo, espero que ayude.

Set crApplication = New CRAXDRT.Application
Set mrptReporte = crApplication.OpenReport(strArchivoReporte)
Set crApplication = Nothing

'En este caso la fuente de datos del reporte son dos recordsets
With mrptReporte
.Database.SetDataSource mrsDatos
If Not mrsEncabezado Is Nothing Then
.Database.SetDataSource mrsEncabezado, , 2
End If
.DiscardSavedData
.ReadRecords
End With

With Me
.Height = Screen.Height - 400
.Width = Screen.Width - 200
End With


With CRViewer1
.DisplayGroupTree = False
.Zoom 100
.ReportSource = mrptReporte
.ViewReport
End With

Set mrptReporte = Nothing


Carlos Antonio

Guía de netiquette del foro:
http://perso.wanadoo.es/rubenvigon/foro

"Mr. Fale" wrote in message
news:
Mostrar la cita

Hola,

Para generar un informe (es mi primer informe asi que no se si lo estoy
haciendo bien o lo hago de una manera poco eficiente, asiq ue si teneis

otra
Mostrar la cita

sujerencia dedimelo plissss ;) )
Genero en informe mediante un componente CRViewer que lo enlazo a un

Informe
Mostrar la cita

(Diseñador)... y me gustaria pasarle un par de parametros... como puedo
hacerlo??? hay algun modo?? o me toca crear una tabla y escribirlos alli
cada vez que quiero pasar algun parametro???

muchiiiiiiiziimazzz grafiazzzz ;P


JJ
http://www.sinfirma.tk