سؤال عن كيفية طباعة محتوى listview عن طريق crystal report

كود :
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim dsb As New Dataset1

        Dim dra As DataRow



        Try

            Dim ite As New ListViewItem

            For i As Integer = 0 To ListView1.Items.Count - 1

                dra = dsb.element1.NewRow

                dra!a1 = ListView1.Items.Item(i).SubItems(0).Text

                dra!a2 = ListView1.Items.Item(i).SubItems(1).Text

                dra!a3 = ListView1.Items.Item(i).SubItems(2).Text

                dra!a4 = ListView1.Items.Item(i).SubItems(3).Text

                dra!a5 = ListView1.Items.Item(i).SubItems(4).Text

                dra!a6 = ListView1.Items.Item(i).SubItems(5).Text

                'dra!a7 = ListView1.Items.Item(i).SubItems(6).Text

                'dra!a8 = ListView1.Items.Item(i).SubItems(7).Text



                dsb.element1.Rows.Add(dra)



            Next



            Dim f11 As New Form4

            Dim cr As New CrystalReport3

            cr.SetDataSource(dsb)

            f11.CrystalReportViewer1.ReportSource = Nothing

            f11.CrystalReportViewer1.ReportSource = cr

            f11.ShowDialog()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub