الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه jennya في 1 أبريل 2005 · 6 رد · 2,181 مشاهدة · في قسم التقارير
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ,, عندي سؤال اتمنى من اخواني يساعدوني ولايبخلون علي

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

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

ارجوكم عدم اهمال سؤالي لتعم الفائده للجميع

تحياتي

post-33391-1112346802_thumb.jpg

#3

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

تحياتي

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#4

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

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

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

ادعي لي

#5

زرغررررررررررررررررررررررررررررررررررررررررررررروطه :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 انا استفدت من دروسه عن الكريستال ريبورت جدا رائعه وواضحه ومتقنه الخطوات الله يسعده دنيا واخرررررررررررررررررره يارب ويهدينا واياه للصراط المستقيم

تم تعديل هذه المشاركة بواسطة jennya في 2 أبريل 2005 في 17:30

#6

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

Dim m_application As New CRAXDDRT.Application

Dim m_report As New CRAXDDRT.Report

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

#7

السلام عليكم

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

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

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

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

هذا الموضوع مغلق.

مواضيع مشابهة