[محمد كريّم]

كود :

Private Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click
       save_btn_Click(Nothing, Nothing)
       Dim adp As New SqlDataAdapter("select * from invoice_print where invoice_number=N'" & (printcode.Text) & "'", sqlconn)
       Dim ds As New DataSet
       adp.Fill(ds)
       Dim dt = ds.Tables(0)
       If dt.Rows.Count = 0 Then
           MsgBox("لايوجد بيانات لطباعتها", MsgBoxStyle.Critical, "خطاء")
           Exit Sub
       End If
        
       Dim rept
       rept = New invoice_pos112
        
       
        rept.datasource = dt
       
        '''
       'Dim tool As New XtraReport
        'Dim frm As New preview
       'preview.DocumentViewer1.DocumentSource = rept
       'preview.Show()
        '''
        
        
        ' طباعة مباشرة
        Dim tool As New ReportPrintTool(rept)  
        tool.PrintingSystem.ShowPrintStatusDialog = False  
        rept.CreateDocument(False)  
        tool.Print()
   End Sub