أعزائي أريد الحصول عل مثال يوضح كيفية طباعة تقارير VB6 أفقياً (Lnadscape) أو عمودياُ (Portrait).
مع الشكر سلفاً
تقرير أفقي في VB6
مغلق
على فرض ان إسم التقرير DataReport
فيكون الكود بهذه الطريقة
Private Sub DataReport_Initialize() Me.Orientation = rptOrientLandscape End Sub
اللهم أغفر لنا ولوالدينا ومعلمينا وأساتذتنا ومشايخنا وكل من له فضل علينا
اخ رمضان لم أجد خاصية Orientation من خصائص التقرير ما السبب؟
اخت دينا لم لا تقومين بتغيير الاتجاه من العمودي للافقي يدويا ؟ أم أن برنامج سيستخدمه غيرك
على العموم يوجد برنامج للاخ العماني فيه كود التبديل ولكنه كبير ومتشعب فإذا أردتي أن ارفقه هنا
نعم البرنامج سيستخدمه غيري ، أرجو وضع رابط برنامج الاخ العماني ولك جزيل الشكر
تفضلوا إخواني فالبرنامج في التوقيع ( قديم بعض الشي ) حيث أنه أول برنامج أصممه
على العموم الصريقة التي به ليست صعبه فما عليك إلا نقل الأكواد ووضعها في برنامجك
أو قم بتنزيل السيرفس باك 6 التابعة للفيجوال وسوف تغنيك عن كتابة الأكواد حيث أن الخاصية Orientation ستكون مفعله بها ومنها تستطيع إختيار شكل التقرير عمودي أو أفقي ولكن حجمها 60 ميجا تقريبا
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
اخي العماني حاولت في برنامجك ان انقل الاكواد اللازمة وفشلت :) فيا ليتك بما انك مصمم البرنامج ان تضع الاكواد
وشكرا لك
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
اخي omani
الرابط لايعمل أرجو وضع رابط اخر
وشكرا
أختي الكريمة Dena22 :
ممكن أن تستخدمي الكود الذي و ضعه الأخ الفاضل رمضان لتعديل وضع التقرير:
DataReport1.Orientation = rptOrientLandscape
لكن يجب اولا تثبيت serviece pak 6 من موقع Microsoft .
و لك مني جزيل الشكر,,, (h)
____________________________________________________________________________
{ اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ } سورة الأنبياء (1)
____________________________________________________________________________
In a world without walls and fences, who needs Windows and Gates
أخي الفاضل Alaa Awaad
أرجو منك وضع رابط التحميل الخاص بserviece pak 6
ولك جزيل الشكر
أختي الكريمة:
إليك الرابط الخاص بـ Serviece pak 6 :
http://msdn.microsoft.com/vstudio/download...p6/default.aspx
و لك مني جزيل الشكر,,, (h)
____________________________________________________________________________
{ اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ } سورة الأنبياء (1)
____________________________________________________________________________
In a world without walls and fences, who needs Windows and Gates
الاخ العماني
السلام عليكم ورحمة الله وبركاته
أرجوا إعادة وضع الرابط لأن الرابط الاول لا يعمل.
ولك الشكر مسبقاً.
أستغرب كثرة تعطل روابط التحميل بالمنتدى وأرجو من الاخوة المشرفين والقائمين على المنتدى النظر في هذه المشكلة
تفضلوا اخواني إعادة تحميل الملف
تحياتي للجميع
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
والله من الاعماق شكرا لك ياعزيزي الفاضل omani
اخي العزيز
طريقة الاخ رمضان ممتازه وسهله وهي تعمل بشكل جيد ولا يوجد اي خطأ
وانما تحتاج الى سيرفس 6
هناك فرق بين أن تكبر بالعمر
، و أن تكبر بالعقل
فالأولى ، إجباري
، والثانية اختياري .."
فالأولى ، إجباري
، والثانية اختياري .."
الاخ الحبيب
قمت بتنزيل السيرفس باك 6 التابعة للفيجوال ومع ذلك الخاصية Orientation غير مفعله
حاولت مرارا الطباعة الافقية لم استطيع
ارجوا المساعدة يا اخوة
تم تعديل هذه المشاركة بواسطة ok_freee في 30 أكتوبر 2005 في 20:50
اخي العزيز انا استغرب ذلك ولكن
انسخ الكود التالي وضعه قبل كود عرض التقرير
DataReport1.Show
DataReport1.Orientation = rptOrientLandscape
وارجو مواقفاتي بما يحصل معك لان موضوعك محل اهتمامي
تم تعديل هذه المشاركة بواسطة الفوارس2000 في 30 أكتوبر 2005 في 21:19
هناك فرق بين أن تكبر بالعمر
، و أن تكبر بالعقل
فالأولى ، إجباري
، والثانية اختياري .."
فالأولى ، إجباري
، والثانية اختياري .."
الاخ الحبيب ابو الفوارس السلام عليكم ورحمة الله وبركاته
قمت بتنزيل السيرفس باك 6 التابعة للفيجوال ومع ذلك الخاصية Orientation غير مفعله
انا فى حاجه ماسة لذلك فانا بحمد الله بفضل مساعدتكم فى هذا المنتدى استعطت عمل برنامج لعمل الجدول المدرسى والبرنامج على اعلى مستوى ولا توجد مشكله ولكن اضطر لتقسيم الجدول على ورقتين الاولى لايام السبت والاحد والاثنين والثانية لايام الثلاثاء والاربعاء والخميس وتعود المدرسين على ذلك ولكن لو امكننى ان اجعل الداتا ريبورت افقية ممكن ان تستوعب كل الحصص حيث اننى اقوم بتكبير الجدول بعد ذلك اشكرك على حسن اهتمامك بالمشاركة ارجو ان تساعدنى ولك الشكر اخوك محمد سيف الاسلام مدرس رياضيات مصرى
th_saif@yahoo.com
تم تعديل هذه المشاركة بواسطة ok_freee في 31 أكتوبر 2005 في 18:54
مشكور علي الموضوع وارجو شرح الكود الموجود بالمرفق
الناس انواع
رجل يعلم ويعلم انه يعلم فهذا عالم فوقروه
رجل يعلم ولا يعلم انه يعلم فهذا غافل فإيقزوه
رجل لا يعلم ويعلم انه لا يعلم فهذا جاهل فعلموه
رجل لا يعلم ولا يعلم انه يعلم فهذا احمق فابتعدو عنه
اخي العزيز معذرة على التأخير
بعد تحميلك للسيرفس باك في مسار الفيجول
تذهب يدوياً لمسار الفيجول وتنقر على ايقونة التحميل التي مكتوب عليها سيرفس باك ليتم تحميل كامل الادوات
وشكراً
هناك فرق بين أن تكبر بالعمر
، و أن تكبر بالعقل
فالأولى ، إجباري
، والثانية اختياري .."
فالأولى ، إجباري
، والثانية اختياري .."
اخي العماني شكراً لك الطريقة مشت معاي
تحياتي
هذا الموضوع مغلق.