تعلم الطرق المختلفة لطباعة تقارير DataReport أفقيا و عموديا ؟؟؟
صفحة 1 من اصل 1 • شاطر
تعلم الطرق المختلفة لطباعة تقارير DataReport أفقيا و عموديا ؟؟؟
بسم الله الرحمن الرحيم
أخوانى الاعضاء و السادة الزوار أهلا وسهلا بكم فى منتدى مصر التقنى .....اليوم أن شاء الله تعالى سنتعلم سويا كيفية طباعة تقارير Datareport أفقيا أو عموديا ....بداية يوجد طريقتين لكيفة عمل ذلك وهم :
أولا : الطريقة الاولى :بأستخدام الاكواد التالية
- كود طباعة التقرير افقيا
- الكود:
Datareport1.Orientation=rptOrientLandscape
_ كود طباعة التقرير عموديا
- الكود:
DataReport1.Orientation=rptOrientPortrait
_ كود طباعة التقرير حسب اعدادات الطابعة الموجودي لديك
- الكود:
DataReport1.Orientation =rptOrientDefault
عند أستخدام تلك الطريقة ربما تجد أن نافذة كتابة الكود لا تتفاعل معك و عند تشغيل برنامج يظهر خطأ بأن تلك الاكواد غير صحيحة ....وهذا يدل على أن نسخة الفجوال بيسك 6 لديك ليست Service Pack 6 لذلك و لحل تلك المشكلة يجب تحديث الفجوال بيسك لديك وذلك عن طريق تحميل الملف هذا ....قم فتح الملف سوف يظهر لك المربع الحوارى التالى :
هذا المربع الحوارى يطلب منك المسار الذى سيتم أخراج ملفات الارشيف فية ....حدد مجلد معين ثم أضغط أوكية
_ بعد ذلك قم بالذهاب الى المجلد الذى تم أستخراج الملفات فية ....ستجد ملف تنفذى يسمى setupsp6 ....قم بالضغط على هذا الملف وبعد الانتهاء من التثبيت ستجد أنك قمت بحديث نسخة الفجوال بيسك لديك و الان تستطيع أستخدام الاكواد السابقة .
الطريقة الثانية : وهى بأستخدام مكتبة PageSet.dll .....ويمكنك تحميل المكتبة من المرفقات فى تلك المشاركة ....بعد ما يتم تحميل الاداة قم بوضعها فى مجلد النظام system32 ....بعد ذلك قم بتسجيل الاداة فى الريجستير و ذلك عن طريق Start ثم Run فى أكتب فى المربع الحوارى الذى سيظهر النص التالى :
- الكود:
RegSvr32 PageSet.dll
سوف تظر لك رسالة تخبرك بنجاح العملية ....الأن يمكنك أستخدام الاداة و ذلك على النحو التالى :
1 _ أدرج المكتبة PageSet المكتبة الى المشروع و ذلك من Project ثم References ثم Browse ثم تحدد مجلد system32 ثم إختيار الأداة PageSet.dll ومن ثم النقر على زر OK
2 _ كتابة الاكواد ....فى قسم التصريحات بنقوم بتعريف المكتبة عن طريق الكود التالى :
- الكود:
Dim Egy As New pageset.PrinterControl
ويجب ملاحظة أن كلمة Egy هو متغير يمكنك تغييره إلى اي أسم تريده عدا الأسماء المحجوزة في الفيجوال بيسك ..والان تعالوا نعرف كيفية الطباعة بالعرض أو بالطول على النحو التالى :
_ للطباعة بالعرض نستخدم الكود التالى :
- الكود:
Egy.ChngOrientationLandscape
- و الطباعة بطول الورقة نستخدم الكود التالى :
- الكود:
ChngOrientationPortrait
_أما كود طباعة التقرير حسب اعدادات الطابعة الموجودة لديك نستخدم الكود التالى :
- الكود:
Egy.ReSetOrientation
وفى النهاية أتمنى أن أكون قد وفقت فى شرح الدرس و الى اللقاء فى درس جديد إن شاء الله تعالى
- المرفقات
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: تعلم الطرق المختلفة لطباعة تقارير DataReport أفقيا و عموديا ؟؟؟
جزاك الله كل خير
موضوع هام جداً
موضوع هام جداً
goldenman100- عضو شرفى
- تاريخ التسجيل : 09/08/2012
المساهمات : 27
النقاط : 46
التقيم : 1
الدولة :
الجنس :
رد: تعلم الطرق المختلفة لطباعة تقارير DataReport أفقيا و عموديا ؟؟؟
نسال الله ان يوفقك دائما
khasd- ....
- تاريخ التسجيل : 23/05/2012
المساهمات : 57
النقاط : 102
التقيم : 1
الدولة :
الجنس :
رد: تعلم الطرق المختلفة لطباعة تقارير DataReport أفقيا و عموديا ؟؟؟
نفع الله بك وبعلمك
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
ليس من اخترق جهاز اصبح هكر
وليس من كتب كود اصبح مبرمج
وليس من كسر برنامج صار خيبير كسر
ولكن من تواضع لله رفعة
tryold- ...
- تاريخ التسجيل : 06/04/2013
المساهمات : 37
النقاط : 47
التقيم : 2
الدولة :
الجنس :
رد: تعلم الطرق المختلفة لطباعة تقارير DataReport أفقيا و عموديا ؟؟؟
جميل جدا انى ابحث عن تلك الطرق فى جوجل فيرشدى الى هذا المنتدى
السنى- ........
- تاريخ التسجيل : 18/02/2011
المساهمات : 249
النقاط : 464
التقيم : 25
الجنس :
رد: تعلم الطرق المختلفة لطباعة تقارير DataReport أفقيا و عموديا ؟؟؟
تيقى الثمار ناضجة حنى بعد مرور زمن ليس بالقصير عن العمل
بارك الله فى جهدك
بارك الله فى جهدك
عمر بشر- .
- تاريخ التسجيل : 01/06/2015
المساهمات : 3
النقاط : 3
التقيم : 0
الدولة :
الجنس :
رد: تعلم الطرق المختلفة لطباعة تقارير DataReport أفقيا و عموديا ؟؟؟
للرفع
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 12:41 am من طرف marketing118
» شركة تنظيف ستائر بالرياض
الأحد مارس 17, 2024 10:46 pm من طرف moslema_r
» خيام ملكيه من الداخل
الأحد مارس 17, 2024 8:13 pm من طرف marketing118
» شركة نقل عفش بالطائف
الأحد مارس 17, 2024 6:34 pm من طرف marketing118
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد
» أفضل فني سباك بالرياض ممتاز بالرياض | اتصل الآن
الأحد مارس 17, 2024 12:25 pm من طرف رانيا حماد