تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] شرح طريقة الطباعة مباشرة بدون Report Viewer
#1
بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله إخواني الافاضل

في هذه السطور أردت أن أرفق لكم طريقة لطباعة التقارير مباشرة بدون فتح نافذة Report Viewer

للإشارة فقط هذه الطريقة تنفع كثيرا أصحاب برامج المبيعات 


نبدأ على بركة الله

كود :
'داتا تابل لنحوي فيها البيانات
           Dim dt As New DataTable
           Dim adapter As New SQLiteDataAdapter
           'نقوم بتفريغ الداتا تابل
           dt.Rows.Clear()
           'جملة الإستعلام
           adapter = New SQLiteDataAdapter("select * from View_Liste_Vente_Head_Simple ORDER BY DateVente", con)
           'ملئ الداتاتابل بالبيانات من الداتا أدبتر
           adapter.Fill(dt)
           'عندي هنا إسم الربورت
           ReportViewer1.LocalReport.ReportEmbeddedResource = "Gestion_Commerciale.Report_Liste_Vente.rdlc"
           'نقوم ملئ التقرير بالبيانات التي قمنا بجلبها
           ReportViewer1.LocalReport.DataSources.Item(0).Value = dt
           'الآن بيت القصيد نقوم بحفظ التقرير على شكل PDF
           'ثم نقوم بإستدعائه للطباعة مباشرة بدون فتحه

           Dim byteViewer As Byte() = ReportViewer1.LocalReport.Render("PDF")
           Dim saveFileDialog1 As New SaveFileDialog()
           saveFileDialog1.Filter = "*PDF files (*.pdf)|*.pdf"
           saveFileDialog1.FilterIndex = 2
           saveFileDialog1.RestoreDirectory = True
           'قمنا بحفظ التقرير هنا
           Dim newFile As New FileStream("C:\temp\1.pdf", FileMode.Create)
           newFile.Write(byteViewer, 0, byteViewer.Length)
           newFile.Close()

           'الآن عملية الطباعة
           Dim MyProcess As New Process
           MyProcess.StartInfo.CreateNoWindow = False
           MyProcess.StartInfo.Verb = "print"
           MyProcess.StartInfo.FileName = "C:\temp\1.pdf"
           MyProcess.Start()
           MyProcess.WaitForExit(10000)
           MyProcess.CloseMainWindow()
           MyProcess.Close()
           'الآن حذف الملف
           My.Computer.FileSystem.DeleteFile("C:\temp\1.pdf")

           'إن شاء الله أكون أفدتكم بطريقة بسيطة
           'دعائكم لي بالهداية
الرد
تم الشكر بواسطة: محمد كريّم , محمد كريّم , elgokr , tarfayaski , tarfayaski


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  Report Viewer in VS 2017 Sajad 4 1,874 19-04-18, 12:30 PM
آخر رد: حريف برمجة
  كيفية تمرير البيانات الى Microsoft Report باستخدام الباراميترات Sajad 68 17,360 07-03-17, 10:37 AM
آخر رد: وائل القطاوي
  تمرير صورة الى Crystal Report Sajad 14 11,115 20-04-16, 10:10 AM
آخر رد: saharmoubarak
Photo Passing String From Form to Report Viewer using rdlc Parameter العزابي 5 5,860 01-09-15, 03:43 PM
آخر رد: mbk2006
  دورة التقارير في VB.net باستخدام Report Viewer أحمد النجار 7 6,831 02-07-15, 03:58 PM
آخر رد: مبرمج بلا حدود
  Crystal Report With DataSet Ahmed_online 10 4,447 04-12-14, 12:51 PM
آخر رد: benomar
  العمليات الحسابية من قاعدة البيانات الى تقرير الكريستال ريبورت مباشرة aftfm 0 1,193 02-12-14, 06:29 AM
آخر رد: aftfm
  التعامل مع TextObject فى الكريستال ريبورت بدون قاعدة بيانات Omar Mekkawy 2 2,386 29-11-14, 01:58 AM
آخر رد: mero5000
Thumbs Up طريقة عمل تقرير با rdlc وعمل Filters العزابي 13 8,644 23-11-14, 10:40 AM
آخر رد: benomar
Thumbs Up [مقال] مكتبات الطباعة من FastReport ابو ابراهيم 4 4,109 28-07-14, 10:46 AM
آخر رد: محمود رغمان

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم