imprimir reporte de crystal

[GeoAvila]

algo así..

Código:

        Dim Reporte As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Try
            Reporte.FileName = "c:\factura.rpt"
            Reporte.ParameterFields(0).CurrentValues.AddValue(NitEmpresa)
            Reporte.ParameterFields(1).CurrentValues.AddValue(Serie)
            Reporte.ParameterFields(2).CurrentValues.AddValue(Numero)
            Reporte.PrintToPrinter(1, False, 0, 0)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

un ejemplito..

nos vemos..