عرض تقرير بشكله النهائي للطباعه في فورم معينه?

وانا سئلت هذا السؤال من قبل ولم اجد الرد

لعرض التقارير استخدم الداتا ريبورت او الكريستال أيهما تفضلها

تحياتي

انا عندي فكره نجربها انا وانت ونشوف مين تضبط معه

اول حاجه انه نستخدم نموذج فرعي يعرض فيه الفورم للكريستال ريبورت وطبعا نضبط خصائص الفورم حقت الكريستال ريبورت بحيث انه مايظهر شرط ادوات الطباعه

انا راح ابدأ اجرب الحين وان شالله يضبط

ادعي لي

زرغررررررررررررررررررررررررررررررررررررررررررررروطه :D سويتها سويتها سويتهاا ضبطت معاياااااااااااااااااااااااااااااااااااااااااااا مررره مبسوطه ( مع اني زعلانه من اعضاء المنتدى الي يعرفو ولا ردوا على سؤالي :( )

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

انا ااضفت ع الفورم أدة CRViewer وضبطت اعداداتها زي ممااحب انه الغيت بعض الحدود وعدم اظهار بعض الخصائص في فورم الاداه

بعدين جيت للكود (فورم الطباعة ) وكتبت التالي :

 Dim m_application As New CRAXDDRT.Application
Dim m_report As New CRAXDDRT.Report
Dim reportfile As String
Dim vlist As Integer


Private Sub Combo1_Click()
vlist = Combo1.ListIndex ' هنا راح نحدد التقرير المختار من قبل اليوزر
Select Case vlist
       Case 0
        
        reportfile = App.Path & "\report1.rpt"
        Set m_report = m_application.OpenReport(reportfile)
        CRViewer.ReportSource = m_report
        CRViewer.Zoom 1
        CRViewer.ViewReport
        Screen.MousePointer = vbDefault

       Case 1

         reportfile = App.Path & "\report2.rpt"
         Set m_report = m_application.OpenReport(reportfile)
         CRViewer.ReportSource = m_report
         CRViewer.Zoom 1
         CRViewer.ViewReport
         Screen.MousePointer = vbDefault


End Select
End Sub

Private Sub Form_Load()

 Combo1.AddItem "بيان شامل بالموظفين” , 0
 Combo1.AddItem "بيان بالمصروفات", 1
 Combo1.AddItem  “ بيان بالعربات", 2

reportfile = App.Path & "\report1.rpt"
Set m_report = m_application.OpenReport(reportfile)
CRViewer.ReportSource = m_report
CRViewer.Zoom 1
CRViewer.ViewReport
Screen.MousePointer = vbDefault

End Sub

وسلامتكم ماادري عماني ايش صار معاك؟

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

يعطي خطأ في السطرين

Dim m_application As New CRAXDDRT.Application

Dim m_report As New CRAXDDRT.Report

كيف نظيف المكتبة

السلام عليكم

اخوي لازم اول تضيف اداة كريستال ريبورت للمشروع , من القائمه project نختار add more activex designer يليهاا crystal report 9 h

لانه بالنسبه لي اشوف ان المكتبه تشتغل معاياا مضبوط اول مااضيف الكريستال ريبورت وينزل معها اوتوماتيك ايضا فورم بها اداة crviewer

وراجع الرابط التالي

/index.ph...pic=56712&st=15