[حماده ممدوح البحيرى]

السلام عليكم
بعد عرض التقرير بكريستال ريبورت
يوجد اعلى التقرير خيارات منها الطباعه المباشر بحسب الطابعه الافتراضية


اريد عمل ذلك ولكن بزر معين بوتن 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("تمت الطباعة", "تنبية")  

لكم جزيل الشكر 

دمتم بود

[sanyor77]

وعليكم السلام ورحمة الله وبركاته،

يمكنك إضافة زر في تقرير 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 الخاص بك.

حفظ التقرير وقم بتشغيله للتحقق من أن الزر يعمل كما هو متوقع.
أتمنى أن يكون هذا مفيدًا!