السلام عليكم
بعد عرض التقرير بكريستال ريبورت
يوجد اعلى التقرير خيارات منها الطباعه المباشر بحسب الطابعه الافتراضية
اريد عمل ذلك ولكن بزر معين بوتن 1
تكون الطباعه فية مباشرة ولكن طبقا لاسم الطابعه داخل txtbox1
السلام عليكم ورحمة الله وبركاته
أولاً ضع السطر التالي في 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("تمت الطباعة", "تنبية")
لكم جزيل الشكر
دمتم بود
وعليكم السلام ورحمة الله وبركاته،
يمكنك إضافة زر في تقرير 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 الخاص بك.
حفظ التقرير وقم بتشغيله للتحقق من أن الزر يعمل كما هو متوقع.
أتمنى أن يكون هذا مفيدًا!