+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طباعة التقرير بامر مباشر (/showthread.php?tid=45659)
طباعة التقرير بامر مباشر - حماده ممدوح البحيرى - 12-03-23
السلام عليكم
بعد عرض التقرير بكريستال ريبورت
يوجد اعلى التقرير خيارات منها الطباعه المباشر بحسب الطابعه الافتراضية
اريد عمل ذلك ولكن بزر معين بوتن 1
تكون الطباعه فية مباشرة ولكن طبقا لاسم الطابعه داخل txtbox1
RE: طباعة التقرير بامر مباشر - حماده ممدوح البحيرى - 14-03-23
اين الردود
RE: طباعة التقرير بامر مباشر - جيولوجي مبتدئ - 26-03-23
السلام عليكم ورحمة الله وبركاته
أولاً ضع السطر التالي في Name Space
Imports CrystalDecisions.CrystalReports.Engine
ثانياً ضع الكود تحت الزر
ثم غير اسم الطابعة الموجود في السطر ذو اللون الأحمر بدل الطابعة التي قمت أنا بإختيارها لتختاره من خلال Textbox1
Dim report As New CrystalReport1
report.Load(Application.StartupPath & "CrystalReport1.rpt")
" report.PrintOptions.PrinterName = "Microsoft XPS Document Writer
report.PrintToPrinter(1, False, 0, 0)
Me.Dispose()
MessageBox.Show("تمت الطباعة", "تنبية")
report.Load(Application.StartupPath & "CrystalReport1.rpt")
" report.PrintOptions.PrinterName = "Microsoft XPS Document Writer
report.PrintToPrinter(1, False, 0, 0)
Me.Dispose()
MessageBox.Show("تمت الطباعة", "تنبية")
لكم جزيل الشكر
دمتم بود
RE: طباعة التقرير بامر مباشر - sanyor77 - 26-03-23
وعليكم السلام ورحمة الله وبركاته،
يمكنك إضافة زر في تقرير Crystal Reports لتحقيق طلبك. يجب عليك القيام بالخطوات التالية:
أضف زرًا جديدًا إلى تقرير Crystal Reports باستخدام أداة تصميم التقارير.
انقر نقرًا مزدوجًا على الزر الجديد لفتح محرر الأحداث.
ابحث عن الحدث "Click" وانقر عليه.
يمكنك استخدام الكود التالي في المحرر للطباعة المباشرة حسب اسم الطابعة المحدد داخل الـ textbox:
Dim PrinterName As String
PrinterName = TextBox1.Text
Report.PrintOptions.PrinterName = PrinterName
Report.PrintToPrinter(1, False, 0, 0)
ملاحظة: تأكد من تغيير "TextBox1" إلى اسم الـ textbox الخاص بك.
حفظ التقرير وقم بتشغيله للتحقق من أن الزر يعمل كما هو متوقع.
أتمنى أن يكون هذا مفيدًا!