[aftfm]

قد يكون من كود الطباعة 

ممكن حد يشوف لنا الكود الخاص بالطباعة هل فيه خطأ

كود :

       Dim sql As String = " SELECT * FROM [tblComDel]  WHERE IDNumberR = '" & Me.lblIDNumberR.Text & "' AND ParCodeNum= '" & Me.cmbIDDevices.Text & "'"
       Dim da As New OleDbDataAdapter(sql, Con)
       Dim DataT1 As New DataTable
       DataT1.Clear()
       da.Fill(DataT1)
       If Me.BindingContext(DataT1).Count = 0 Then
           Exit Sub
       Else
           Dim rpt As New CRComDel
           rpt.SetDataSource(DataT1)
           Dim frmPrint As New frmPrint
           frmPrint.CrystalReportViewer1.ReportSource = rpt
           rpt.SetParameterValue(0, "سند إخراج")
           frmPrint.ShowDialog()
       End If