Visual Basic - como acceder a propiedades de objetos en reporte CrystalReports

Life is soft - evento anual de software empresarial
   
Vista:

como acceder a propiedades de objetos en reporte CrystalReports

Publicado por Jorge (55 intervenciones) el 06/06/2011 18:56:25
Como puedo acceder a un objeto que esta en mi reporte de crystal reports ?
por ejemplo tengo un campo en mi reporte llamado "NombreCliente" pero quiero cambiarle por decir el tipo de fuente o el tamaño de la letra, o las coordenadas x,y, como accedo a esa propiedad mediante visual basic?

el codigo que uso es el siguiente usando CRYSTAL REPORTS 9, pero si saben alguna solucion en CR10 o CR11 no problemo o si saben algun lugar donde encotrar la ayuda del control activex de crystal, que no lo encuentro por ningun lado:
gracias por su ayuda

'-------------------------------------------------------------------
'defino mis variables de aplicacion, reporte y subreporte
Dim crApp As CRAXDRT.Application
Dim crReport As CRAXDRT.Report
Dim crSubReport As CRAXDRT.Report

'defino mis variables de listadeparametros y el parametro seleccionado
Dim crParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDRT.ParameterFieldDefinition


Private Function ImprimirReporte(CABECERAREG As Recordset)
Set crApp = New CRAXDRT.Application
Set crReport = New CRAXDRT.Report
Set crSubReport = New CRAXDRT.Report

'asigno mi reporte y el subreporte incluido dentro de reporte principal
Set crReport = crApp.OpenReport(App.Path & "\Rpt\Guia.rpt", 1)
Set crSubReport = crReport.OpenSubreport("DETALLE")
crReport.Database.SetDataSource CABECERAREG
crSubReport.Database.SetDataSource DE.rsPBusCodGuiaDet

'ahora recorro la lista de parametros de mi reporte y asigno parametro por parametro
Set crParamDefs = crReport.ParameterFields
For Each crParamDef In crParamDefs
****Select Case crParamDef.ParameterFieldName
****Case "Titulo"
***********crParamDef.AddCurrentValue (TITULO)
****End Select
Next

'pero asi como accedo a los parametros COMO ACCEDO A LOS OBJETOS, O CAMPOS EN EL REPORTE???

'imprimo
crReport.PrintOut

Set crSubReport = Nothing
Set crReport = Nothing
Set crApp = Nothing


etc...
end function
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