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