VB + Crystal reports 10

[dks]

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.