Necesito imprimir un informe en visual basic 2005
Ecesito imprimir un informe en visual basic 2005, pero al cargar el crystal report no muestra los datos .
he creado un tableadpater Datatable2 con la informacion y columnas relacionadas y una consulta llamada "impresion" que obtiene perfectamente los datos.
Codigo:
Public Class plantilla
Dim id As Integer
Public Sub CrystalReportViewer1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load Me.DataTable2TableAdapter1.impresion(Me.SatDataSet1.DataTable2, id) Me.CrystalReport11.SetDataSource(Me.SatDataSet1) Me.CrystalReportViewer1.RefreshReport() End Sub Sub Listar(ByVal reparacion As Integer) id = reparacion Me.Show()
End Sub
End Class
Esta es la plantilla y aqui desde donde se llama boton imprimir
Private Sub ImprimirToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImprimirToolStripButton.Click
Dim id As Integer = reparacion_activa.id
plantilla.Listar(id)
End Sub
crystal report está enlazado a el data set. Mi email es [email protected] para itnercambiar archivos.Gracias
he creado un tableadpater Datatable2 con la informacion y columnas relacionadas y una consulta llamada "impresion" que obtiene perfectamente los datos.
Codigo:
Public Class plantilla
Dim id As Integer
Public Sub CrystalReportViewer1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load Me.DataTable2TableAdapter1.impresion(Me.SatDataSet1.DataTable2, id) Me.CrystalReport11.SetDataSource(Me.SatDataSet1) Me.CrystalReportViewer1.RefreshReport() End Sub Sub Listar(ByVal reparacion As Integer) id = reparacion Me.Show()
End Sub
End Class
Esta es la plantilla y aqui desde donde se llama boton imprimir
Private Sub ImprimirToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImprimirToolStripButton.Click
Dim id As Integer = reparacion_activa.id
plantilla.Listar(id)
End Sub
crystal report está enlazado a el data set. Mi email es [email protected] para itnercambiar archivos.Gracias