[h2551996]

عليكم السلام
هذا امر طباعة عندي يمكن يفيدك

كود :

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

وبعدين في الريبورت اضف اللي تبي تطبعه