This article has been dead for over three months
You
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
Dim dsTemp As New DataSetTemp 'dataset
Dim View As New FrmViewRptWithPrint
Dim cr As New RptTest 'crystal report
cr.SetDataSource(dsTemp)
View.Crv.RefreshReport()
View.Crv.ReportSource = cr
View.Text = "TEST PRINT"
View.Show()
End Sub