السلام عليكم
قمت بعمل 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
وبعدين في الريبورت اضف اللي تبي تطبعه