كيف يمكن طباعة التقرير مباشرة بدون ظهور صفحة معاينة التقرير

up

up

هل من مجيب

الا يوجد اجد بالمنزل ؟؟؟؟؟؟؟؟؟؟؟

black_boxer كتب:

إخواني الأعزاء

بحث عن حل هذه المشكلة كثيراً ووجدت بعض الإجابات ولكن لم افهما ولم تنفذ عندما استخدمتها وحيث اني أضعت وقت في البحث أرجو منكم مساعدتي في حل هذه المشكلة

لدي تقرير خاص بفاتورة قمت بإنشاء هذا التقرير باستخدام الكريستال ريبورت 8 والوضع العادي لإظهار هذا التقرير هو عمل نموذج ووضع أداة CRViewer فيه ثم كتابة الكود التالي في حدث load لهذا النموذج :

Call Form_Resize
Dim reportfile As String
reportfile = App.Path & "\report\rprallvnd.rpt"
Set m_report = m_application.OpenReport(reportfile)
CRViewer.ReportSource = m_report
CRViewer.Zoom 1
CRViewer.ViewReport
Screen.MousePointer = vbDefault

ثم استدعاء النموذج من نموذج الفواتير فتظهر شاشة المعاينة ومن ثم يمكن طباعة التقرير والمشكلة هنا اني اريد طباعة التقرير مباشرة بدون ظهور شاشة المعاينة أو شاشة إعدادات الطباعة فكيف يتم ذلك ؟ وهل استخدم نفس الأداة ؟؟ وإذا استخدمتها أضعها في نموذج الفواتير أم أضعها في نموذج جديد مثلما شرحت سابقاً ؟؟

أرجو الإفادة فالوقت ضيق أيها الإخوة الأعزاء

نفس الكود السابق فقط قم بتغيير السطر قبل الاخير ليصبح هكذا

Call Form_Resize
Dim reportfile As String
reportfile = App.Path & "\report\rprallvnd.rpt"
Set m_report = m_application.OpenReport(reportfile)
CRViewer.ReportSource = m_report
CRViewer.Zoom 1
CRViewer.PrintReport
Screen.MousePointer = vbDefault

تحياتي

اخي Omani

اولا لا اعرف في الكريستال ريبورت لكن كنت قد طرحت على الاخ في مشاركة اخرى للبحث عن خاصية printReport لكن اخبرني انها غير موجودة .

فهل انت متأكد من وجود هذا الامر ؟ وعلى اي اصدار تعمل من الكريستال ريبورت

تحياتي لك

اخي طارق الامر موجود في تقارير الكريستال وانا اعمل حاليا على الاصدار العاشر وبدأت العمل على تقارير الكريستال من الاصدار الثامن 8.5

واستخدم فقط RDC اي التقارير المبنية بداخل المشروع .

تحياتي

الحل الأمثل هو

أن تكتب الأتي في زر الطباعة

m_report.PrintOut False, 1

Set m_report = Nothing