[momani33]

السلام عليكم تم كتابة الكود في الاسفل لعرض تقرير مبيعات نقطة بيع  باستخدام Devexpress xtra report      في الكود عند الضغط على طباعه يتم اظهار  الفاتوره  حيث يمكن طباعة الفاتوره بشكل يدوي عند الضغط على زر طباعه من صفحة عرض التقرير
المطلوب التعديل على الكود بحيث تتم عملية الطباعه بشكل مباشر دون عرض التقرير ولكم جزيل الشكر

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
        Dim tool As New XtraReport
        rept.datasource = dt
        Dim frm As New preview
        preview.DocumentViewer1.DocumentSource = rept
        preview.Show()
    End Sub