شرح طريقة الطباعة مباشرة بدون Report Viewer

تقييم الموضوع :
  • 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,270 19-04-18, 12:30 PM
آخر رد: حريف برمجة
  كيفية تمرير البيانات الى Microsoft Report باستخدام الباراميترات Sajad 68 16,237 07-03-17, 10:37 AM
آخر رد: وائل القطاوي
  تمرير صورة الى Crystal Report Sajad 14 10,426 20-04-16, 10:10 AM
آخر رد: saharmoubarak
Photo Passing String From Form to Report Viewer using rdlc Parameter العزابي 5 5,594 01-09-15, 03:43 PM
آخر رد: mbk2006
  دورة التقارير في VB.net باستخدام Report Viewer أحمد النجار 7 6,258 02-07-15, 03:58 PM
آخر رد: مبرمج بلا حدود
  Crystal Report With DataSet Ahmed_online 10 4,297 04-12-14, 12:51 PM
آخر رد: benomar
  العمليات الحسابية من قاعدة البيانات الى تقرير الكريستال ريبورت مباشرة aftfm 0 1,129 02-12-14, 06:29 AM
آخر رد: aftfm
  التعامل مع TextObject فى الكريستال ريبورت بدون قاعدة بيانات Omar Mekkawy 2 2,264 29-11-14, 01:58 AM
آخر رد: mero5000
Thumbs Up طريقة عمل تقرير با rdlc وعمل Filters العزابي 13 8,357 23-11-14, 10:40 AM
آخر رد: benomar
Thumbs Up [مقال] مكتبات الطباعة من FastReport ابو ابراهيم 4 3,911 28-07-14, 10:46 AM
آخر رد: محمود رغمان

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


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