karramli

تقرير أفقي في VB6

25 ردود في هذا الموضوع

أعزائي أريد الحصول عل مثال يوضح كيفية طباعة تقارير VB6 أفقياً (Lnadscape) أو عمودياُ (Portrait).

مع الشكر سلفاً

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

انظر لبرنامج العماني فستجد الطريقة

av-7014.gif

B)

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

على فرض ان إسم التقرير DataReport

فيكون الكود بهذه الطريقة

Private Sub DataReport_Initialize()
   Me.Orientation = rptOrientLandscape
End Sub

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

أخ رمضان تظهر رسالة خطأ عن تنفيذ الكود

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

اخ رمضان لم أجد خاصية Orientation من خصائص التقرير ما السبب؟

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

اخت دينا لم لا تقومين بتغيير الاتجاه من العمودي للافقي يدويا ؟ أم أن برنامج سيستخدمه غيرك

على العموم يوجد برنامج للاخ العماني فيه كود التبديل ولكنه كبير ومتشعب فإذا أردتي أن ارفقه هنا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

نعم البرنامج سيستخدمه غيري ، أرجو وضع رابط برنامج الاخ العماني ولك جزيل الشكر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

تفضلوا إخواني فالبرنامج في التوقيع ( قديم بعض الشي ) حيث أنه أول برنامج أصممه

على العموم الصريقة التي به ليست صعبه فما عليك إلا نقل الأكواد ووضعها في برنامجك

أو قم بتنزيل السيرفس باك 6 التابعة للفيجوال وسوف تغنيك عن كتابة الأكواد حيث أن الخاصية Orientation ستكون مفعله بها ومنها تستطيع إختيار شكل التقرير عمودي أو أفقي ولكن حجمها 60 ميجا تقريبا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

اخي العماني حاولت في برنامجك ان انقل الاكواد اللازمة وفشلت :) فيا ليتك بما انك مصمم البرنامج ان تضع الاكواد

وشكرا لك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

تفضل اخي هذا مثال سريع أعددته على عجالة بنسخ الأكواد لا كتابتها من جديد

تحياتي لك

الطباعة_بالعرض.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

اخي omani

الرابط لايعمل أرجو وضع رابط اخر

وشكرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

أختي الكريمة Dena22 :

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

DataReport1.Orientation = rptOrientLandscape

لكن يجب اولا تثبيت serviece pak 6 من موقع Microsoft .

و لك مني جزيل الشكر,,, (h)

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

أخي الفاضل Alaa Awaad

أرجو منك وضع رابط التحميل الخاص بserviece pak 6

ولك جزيل الشكر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

الاخ العماني

السلام عليكم ورحمة الله وبركاته

أرجوا إعادة وضع الرابط لأن الرابط الاول لا يعمل.

ولك الشكر مسبقاً.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

تفضلوا اخواني إعادة تحميل الملف

تحياتي للجميع

الطباعة بالعرض.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

والله من الاعماق شكرا لك ياعزيزي الفاضل omani

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

اخي العزيز

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

وانما تحتاج الى سيرفس 6

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

الاخ الحبيب

قمت بتنزيل السيرفس باك 6 التابعة للفيجوال ومع ذلك الخاصية Orientation غير مفعله

حاولت مرارا الطباعة الافقية لم استطيع

ارجوا المساعدة يا اخوة

تم تعديل بواسطه ok_freee
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

اخي العزيز انا استغرب ذلك ولكن

انسخ الكود التالي وضعه قبل كود عرض التقرير

DataReport1.Show

DataReport1.Orientation = rptOrientLandscape

وارجو مواقفاتي بما يحصل معك لان موضوعك محل اهتمامي

تم تعديل بواسطه الفوارس2000
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

الاخ الحبيب ابو الفوارس السلام عليكم ورحمة الله وبركاته

قمت بتنزيل السيرفس باك 6 التابعة للفيجوال ومع ذلك الخاصية Orientation غير مفعله

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

[email protected]

تم تعديل بواسطه ok_freee
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

مشكور علي الموضوع وارجو شرح الكود الموجود بالمرفق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

اخي العزيز معذرة على التأخير

بعد تحميلك للسيرفس باك في مسار الفيجول

تذهب يدوياً لمسار الفيجول وتنقر على ايقونة التحميل التي مكتوب عليها سيرفس باك ليتم تحميل كامل الادوات

وشكراً

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

اخي العماني شكراً لك الطريقة مشت معاي

تحياتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .