
Dim imprix As New PrintDespachos ' Este es el reporte
imprix.SetParameterValue("TotalDeVenta", Me.txt_totalVenta.Text)
imprix.SetParameterValue("TotalComision", Me.txt_txtMontoComision.Text)
imprix.SetDataSource(imprix)
Dim ira As New PrintDespachoProd ' Este es el form
ira.CrystalReportViewer1.ReportSource = imprix
ira.ShowDialog()