هل بالامكان عمل الزووم للتقارير فى وضع معاينة قبل الطياعة برمجيا

[أبو عبدالله الحلوانى]

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

هل يوجد كود لعمل zoom in و zoom out للتقرير فى وضع معاينة قبل الطباعة

وشكرا للجميع

[يوسف أحمد]

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

 

اخي العزيز ابو عبد الله

 

لم اجرب هذا و لكن ما اعلمه هو ان الضغط على الحرف   Z   بلوحة المفاتيح يقوم بعمل الزوم.

 

و ايضاً بالامكان في حدث عند الفتح للتقرير تحديد الزووم كالتالي :

DoCmd.RunCommand acCmdZoom100

 يمكنك تغيير الرقم لتحصل على الزوم المناسب.

 

ارجو ان اكون قد افدتك.

 

بالتوفيق

تم تعديل فبراير 20, 2015 بواسطه yousef

[أبو عبدالله الحلوانى]

جزاك الله خيرا أستاذ يوسف على الاهتمام

ولكن لم يعمل اختصار لوحة المفاتيح z معى

مع العلم أنى استخدم اصدار افس 2010

وكذلك الكود الذى تفضلت به اعطانى رسالة أن الأمر غير متاح اﻵن

فهل من حل آخر

علما أن البرنامج يعمل مع تصغير واجهة اﻷكسس

[علي المصري]

مع الزر المصمم لفتح التقرير استخدم الامر التالي مع تغيير اسم التقرير center8 إلى اسم التقرير لديك

جرب ووافني بالنتيجة

DoCmd.OpenReport "Center8", acViewPreview
    DoCmd.RunCommand acCmdZoom150

[يوسف أحمد]

بارك الله فيك اخي العزيز ابو عبد الله  و جزاك خير الجزاء

 

اضع لك مثال بطريقة اخرى .. لاحظ استخدام الخاصية ZoomControl بالوحدة النمطية 

 

ضع قيمة للزوم الذي تريده ما بين 25 و 200  فقط بمربع النص الخاص بالزوم قبل عرض التقرير ثم اعرض التقرير .

 

 

ارجو ان يكون هو المطلوب

 

 

بالتوفيق للجميع

zoom .rar

[أبو عبدالله الحلوانى]

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

جزاك الله خيرا أستاذ يوسف جعله الله فى موازين حسناتكم والاستاذ على وسائر الاخوة فى المنتدى

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

وأكرر شكرى للجميع

[يوسف أحمد]

و اياك جزى و فيك بارك اخي ابو عبد الله

Function reportZoom(ReportName As String, ZoomValue As Integer)With DoCmd    .OpenReport ReportName, View:=acViewPreview    .MaximizeEnd WithReports(ReportName).ZoomControl = ZoomValueEnd Function

الشرح :

السطر الاول : انشاء دالة بإسم reportZoom بها بارمترين ( وسيطين ) الاول هو ReportName من نوع نص (string) و هذا الباراميتر يمثل اسم التقرير بالدالة.

و الباراميتر الثاني هو ZoomValue من نوع Integer و هذا الباراميتر يمثل قيمة للخاصية zoomControl بالدالة.

السطر الثاني : With DoCmd الكلمة with تستخدم للإختصار عند التعامل مع كائن معين بحيث لا يتكرر اسمه بالكود و هنا نستخدمها مع الكائن DoCmd .

السطر الثالث : امر فتح تقرير في وضع المعاينة ، و سوف يحدد التقرير عند استدعاء الدالة بتمرير اسم التقرير المراد فتحه للوسيط الاول ReportName .

السطر الرابع : امر تكبير التقرير Maximize

السطر الخامس : انهاء الامر With

السطر السادس : قيمة الخاصية ZoomControl للتقرير ReportName ( الوسيط الاول و الذي يمثل اسم التقرير و سوف يستبدل بإسم التقرير الفعلي عند استدعاء الدالة ) ضمن مجموعة التقارير Reports تساوي ZoomValue .... و بإختصار تحديد قيمة للخاصية ZoomControl وهي الوسيط الثاني ZoomValue

السطر السابع : انهاء الدالة.

بالنسبة للإستدعاء فهو كالتالي حسب المثال :

reportZoom "rpt1", Me.txtZoom

حيث reportZoom هو اسم الدالة

rpt1 هو اسم التقرير ممرر كوسيط اول ( ReportName ) للدالة بحيث يتم فتحه في وضع العرض .

txtZoom هو اسم مربع النص على النموذج و الذي نحدد به قيمة الزووم المراد عرض التقرير به .. و هو الوسيط الثاني ( ZoomValue ) للدالة .

ارجو ان يكون الشرح و اضح

بالتوفيق

تم تعديل فبراير 21, 2015 بواسطه yousef

[أبو عبدالله الحلوانى]

جزاك الله خيرا أستاذ يوسف ونفع الله بك أينما حللت

الشرح واضح جدا

لى طلب أخير اطلبه على استحياء

كنت أحاول تغير الزوم أثناء فتح التقرير أى التقرير مفتوح بالفعل ثم أفتح الفورم الذى أنشئته ووضعت به الدالة التى أفدتها من شرح أستاذ يوسف

فتعطينى رسالة خطأ

حاولت التعديل بالوحدة النمطية وأزلت منها أمر with docmd فلم يفلح اﻷمر كذلك وأعطانى رسالة خطأ أيضا مفادها أن المرجع معطل للخاصية zoomcontrol

أرجو توجيهى للتعديل الصحيح بدون أمثلة جاهزة ولا اريد ألاثقال على حضراتكم

[يوسف أحمد]

بارك الله فيك اخي العزيز ابو عبد الله

 

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

 

مرفق نفس المثال مع الغاء امر تكبير التقرير و فيه يتم التحكم بتغيير الزوم من النموذج .. فهل هذا ما تقصده؟

 

 

مع الشكر

zoom .rar

[أبو عبدالله الحلوانى]

أسف على تأخرى فى الرد

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

ولعل هذه الصور تفى بالغرض

يسعدنى سماع رأي حضرتك والأستاذ على أيضا

تم تعديل فبراير 23, 2015 بواسطه أبو عبدالله الحلوانى

[أبو عبدالله الحلوانى]

أسف هذا الملف الصور بصيغة rar حول الصيغة ثم قم بفك الملف

أكواد أداة الزوم.bmp

يسعدنى تقيم حضراتكم لهذا العمل المتواضع

[يوسف أحمد]

بارك الله فيك اخي العزيز ابو عبد الله

 

الصورة تعطي خطأ ( Invalid Image )  و لا يمكن استعراضها

 

 

مع الشكر

[أبو عبدالله الحلوانى]

أستاذ يوسف غير امتداد الملف المرفق بعد تحميله الى .rar

ثم قم بفك ضغط الملف

لأنى لم استطع ارفاق ملف الرار فحولت امتداده الى bmp.