إخواني الأعزاء
بحث عن حل هذه المشكلة كثيراً ووجدت بعض الإجابات ولكن لم افهما ولم تنفذ عندما استخدمتها وحيث اني أضعت وقت في البحث أرجو منكم مساعدتي في حل هذه المشكلة
لدي تقرير خاص بفاتورة قمت بإنشاء هذا التقرير باستخدام الكريستال ريبورت 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
ثم استدعاء النموذج من نموذج الفواتير فتظهر شاشة المعاينة ومن ثم يمكن طباعة التقرير والمشكلة هنا اني اريد طباعة التقرير مباشرة بدون ظهور شاشة المعاينة أو شاشة إعدادات الطباعة فكيف يتم ذلك ؟ وهل استخدم نفس الأداة ؟؟ وإذا استخدمتها أضعها في نموذج الفواتير أم أضعها في نموذج جديد مثلما شرحت سابقاً ؟؟
أرجو الإفادة فالوقت ضيق أيها الإخوة الأعزاء
