26-03-23, 12:18 PM
وعليكم السلام ورحمة الله وبركاته،
يمكنك إضافة زر في تقرير 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 الخاص بك.
حفظ التقرير وقم بتشغيله للتحقق من أن الزر يعمل كما هو متوقع.
أتمنى أن يكون هذا مفيدًا!
يمكنك إضافة زر في تقرير 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 الخاص بك.
حفظ التقرير وقم بتشغيله للتحقق من أن الزر يعمل كما هو متوقع.
أتمنى أن يكون هذا مفيدًا!