06-12-19, 10:48 PM
السلام عليكم تم كتابة الكود في الاسفل لعرض تقرير مبيعات نقطة بيع باستخدام 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
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