طباعة بيانات التقرير دفعة واحدة

قمت بعمل ReportViewer لعرض شهادات عدد 30 طالب حيث يستقي التقرير بياناته من قاعدة بيانات أكسس عبر combobox وعند اختيار رقم الطالب من ال combobox تظهر بياناته في التقرير ثم اقوم بطباعته وهكذا لجميع الطلاب واحدا بعد الآخر

كود :

Public Sub PrintAllEmp()

        Dim ds As New DataSet2

        con = New SqlConnection(cs)

        If con.State = 1 Then con.Close()

        con.Open()

        '***************************************************************

        Dim cmd As New SqlCommand(" Select * From Employee_Tbl ", con)

        Dim adp As New SqlDataAdapter(cmd)

        adp.Fill(ds, "Employee_Tbl")



        '***************************************************************

        Dim cmd1 As New SqlCommand(" Select * From Company_Info ", con)

        Dim adp1 As New SqlDataAdapter(cmd1)

        adp1.Fill(ds, "Company_Info")

        '***************************************************************



        Frm_Print.Show()

        Frm_Print.WindowState = FormWindowState.Maximized

        Dim rpt As New All_EmpReport

        rpt.SetDataSource(ds)

        Frm_Print.CrystalReportViewer1.ReportSource = rpt

        'Dim printDocument As New System.Drawing.Printing.PrintDocument()

        'rpt.PrintOptions.PrinterName = My.Settings.PrinterName

        'rpt.PrintToPrinter(1, False, 0, 0)

        Frm_Print.CrystalReportViewer1.Refresh()

        con.Close()

        'Dim rpt As New CrystalReport1()

        'Dim printDocument As New System.Drawing.Printing.PrintDocument()

        'rpt.PrintOptions.PrinterName = My.Settings.PrinterName

    End Sub