كيفية التحكم بفتح التقرير بالعرض برمجياً

أكتب الأمر التالي على زر أمر أو عند فتح التقرير

Reports("Report1").Printer.Orientation = acPRORLandscape

أكتب السطر التالي

Reports("Report1").Printer.Orientation

ثم علامة = ستظهر لك خيارات أختر منا عمودي أو أفقي حسب رغبتك

بارك الله فيك أخي المشرف ( مصلح الحريصي ) ويشرفني ردك على السؤال ... وان شاء الله سأجرب الكود الان وأخبرك بالنتيجة

أخي مصلح هل الكود الثاني أكتبه بعد الكود الاول مباشرة ؟؟

لقد قمت باضافة الكودين مع بعض كالتالي :

Reports("report_all_data").Printer.Orientation = acPRORLandscape
Reports("report_all_data").Printer.Orientation = Width

في حدث عند التحميل وقمت بتغيير الاسم (Report1) باسم التقرير الذي لدي والذي هو (report_all_data)

ولكن ظهرت لي رسالة وهي Variable not defined وهي تشير الى الكود الاول وبالتحديد (acPRORLandscape)

فلو تكرمت اخي المشرف ارفاق مثال بسيط على هذا الكود .

ولك جزيل الشكر مقدما ً وجازاك الله خيرا في هذا الشهر المبارك

أخوك بالله sandanet

Reports("Report1").Printer.RightMargin = 339.6   الأيمن تحديد الهامش 

  Reports("Report1").Printer.LeftMargin = 339.6   حديد الهامش الأيسر

  Reports("Report1").Printer.TopMargin = 1400  تحديد الهامش العلوي 

  Reports("Report1").Printer.BottomMargin = 566   تحديد الهامش السفلي	

  Reports("Report1").Printer.PaperSize = acPRPSA4   تحديد حجم الورق	

  Reports("Report1").Printer.Orientation = acPRORLandscape	تحديد اتجاه الورق عمودي أو أفقي

الأسطر السابقة هي خاصة بضبط التقرير حسب الشرح الموضح بالأسهم 0

الاسم الموجود في كل سطر بين القوسين هو ( أسم التقرير ) 0

** الطريقة:

1. افتح التقرير في عرض التصميم

2. أنقر بزر الفأرة الأيمن على تفصيل الخاص بالتقرير وأختر خصائص ثم تبويب ( حدث ) ثم خاصية ( عند التنسيق ) .

3. في الوحدة النمطية أكتب الأسطر السابقة وعدل اسم التقرير الموجود بين القوسين في أسطر الكود أعلاه بالتقرير لديك وغير في الأرقام الأخيرة حتى تصل إلى ما تريد .

4. بالنسبة للخيارين الأخيرين فإذا أردت أن تغير فيهما أمسح علامة = وما بعدها واكتب علامة = من جديد لتظهر لك قائمة بالخيارات.

5. جميع الخيارات الموجودة في مربع ( إعداد الصفحة ) يمكنك تغييره في الكود من حيث ( الهوامش _ طباعة البيانات فقط _ اتجاه الصفحة عمودي أو أفقي _ حجم الورق _مصدر الورق _الطابعة الافتراضية _ طابعة معينة _ عدد الأعمدة _ تباعد الصفوف _ تباعد الأعمدة _ حجم العود العرض والارتفاع _ تخطيط العمود طولاً ثم عرضاً _ عرضاً ثم طولاً )

وهذا مثال لما طلبت

OpenReport.rar

بارك الله فيك أخي المشرف القدير الأستاذ الكبير ( مصلح ) كفيت ووفيت وإن شاء الله سأجرب الطريقة وأخبرك بالنتيجة ... وفقك الله في الدنيا والآخرة إن شاء الله .

ولي سؤال آخر سوف أضعه في مشاركة منفصلة بإذن الله حتى لا يتشعب الموضوع حول كيفية تنفيذ عملية الضغط والاصلاح برمجياً. فلم أجد لحد الان طريقة سلية 100%

وشكراً

أخوك بالله SANDANET

أخي الكريم مصلح تحية طيبة وبعد ..

أخي مصلح آسف على الألحاح في الأسئلة ولكن لقد ظهر عندي في مثالك مشكلة وهي كما موضحة وبالمرفق .. ارجو الإطلاع على المثال مرة أخرى لو تكرمت ... وقد قمت باظافة الكواد السابقة في حدث عند التنسيق في التفصيل في برنامجي ولكن نفس المشكلة تواجهني وهي موضحة بالصورة رقم 3 ..

ارجو أن لا أكون قد أثقلت عليك بمشكلتي .. وأشكرك جزيل الشكر على محاولاتك لمساعدتي مقدماً

أخوك بالله sandanet

أي إصدار من أوفيس تستخدم

السلام عليكم

اسمحولى بملاحظة صغيره

لقد لاحظت اخى SANDANET

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

Reports("report_all_data").Printer.Orientation = acPRORLandscape

والكود الموجود فى الصورة

Reports("report_all_data":.Printer.Orientation = acPRORLandscape

مش عارف هل الصورة مش واضحه ولا فعلا القوس مش موجود

وشكراً لسعة صدركم ...

بسم الله الرحمن الرحيم

بارك الله فيكم اخواني

أخي الكريم الأستاذ مصلح أستخدم الاصدار 2000

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

الى جميع الأخوة الكرام

كل عام وانتم بخير

اخي الفاضل

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

عموما جرب هذا المثال واعطنا خبر ماذا يحدث معك

zaReport.rar

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

وشكراً لكي على مساعدتك التي لا غنى لنا عنها في كل موضوع

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

وبالنسبة لمثالك سأجربه واتمنى أن تحل هذه المشكلة بإذن الله

وشكراً

لا أعلم إذا كان يعمل على أكسيس 2000

ولكنني جربته على 7 أجهزة كمبيوتر والمثال يعمل بشكل صحيح طبعاً اللأوفيس 2003

أخي مصلح تحية طيبة وبعد ...

بالنسبة للكود فيظهر انه يعمل على جميع الاصدارات ماعدا الاصدار 2000 سواء عربي او انكليزي ... ومن ضمنها مثال الأخت زهرة طبعاً

فهل من طريقة ما لجعله يعمل على الاصدار 2000 او هل هناك كود آخر يقوم بتلك المهمة ... ولكم مني جزيل الشكر

وفقكم والله جميعاً أيتما كنتم فلا غنى لنا عنكم أبداً

أخوكم بالله SANDANET

أخي الكريم

لا استطيع اجابتك بالنسبة للأوفيس 2000 ثم لماذا لا تحمل أوفيس 2003 إن لم يكن 2007 لأنه لا يوجد لدية الأوفيس 2000 فأرجو أن تعذرني