| |||
VB + Crystal reports 10 Hola quisiera saber como llenar un reporte hecho en crystal con por ej todos los clientes quisiera saber como se le pasan los datos al crystal un ejemplo de codigo nomas , ya lo diseñe y ahora quiero llenarlo desde ya muchas gracias |
| |||
Public crxApplication As New CRAXDRT.Application Public crReport As CRAXDRT.Report Private Sub Form_Load() 'Mostrar informe por pantalla CRViewer1.ReportSource = crReport CRViewer1.ViewReport End Sub Public Function AddDatos(cadena As String, cX As Long, CY As Long, IndiceSec As Integer) As Integer Dim txtCuadro As TextObject Set txtCuadro = crReport.Sections(IndiceSec).AddTextObject(cadena, cX, CY) txtCuadro.Height = 5000 ' Valor ejemplo txtCuadro.Width = crReport.Sections(IndiceSec).Width - cX - 200 ' Margen, valor de ejemplo txtCuadro.Font.Bold = False txtCuadro.Font.Size = 10 End Function Este codigo añade un cuadro de texto al reporte cuyo contenido esta indicado en el parametro cadena. El crviewer es simplemente el objeto que te presentara el reporte por pantalla, el importante es el crReport. Simplemente debes acceder a las secciones del reporte y utilizar los metodos que te brinda. Este codigo esta diseñado para CR8.5, pero debe funcionar para 9 y 10, no obstante, solo seria cuestion de buscar los objetos correspondientes. Puedes conectar tambien con bases de datos para utilizar sus campos... tienes un mundo de posibilidades si exploras un poco. Espero haberte ayudado. |