كيف فتح تقرير معاينة قبل الطباعة بنسبة 100%

[f16]

السلام عليكم اخواني الكرام اعضاء المنتدى الرائع 

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

ارجو الأفادة عن ما اذا كان هناك كود لعمل ذلك او ان هناك طريقة اخرى . 

لزيادةالتوضيح ما اريده تكبير التقرير نفسة وليس تكبير شاشة التقرير 

اتمنى ان اكون قد وفقت في شرح ما اريده

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

 

[ناقل]

جرب هذا الكود ......

DoCmd.OpenReport "ReportName", acPreview
DoCmd.RunCommand acCmdZoom100 240

 

[f16]

شكراً اخي ناقل على جهدك ولاكن الأمر لم ينجح بعد 

هذا مثال مرفق 

ارجو وضع الكود فيه ربما قد يضبط معك اكثر مني 

مثال اوفيسنا تكبير التقرير.accdb

[ناقل]

39 دقائق مضت, f16 said:

شكراً اخي ناقل على جهدك ولاكن الأمر لم ينجح بعد 

هذا مثال مرفق 

ارجو وضع الكود فيه ربما قد يضبط معك اكثر مني 

مثال اوفيسنا تكبير التقرير.accdb 544 kB · 0 downloads

DoCmd.OpenReport "القيد", acPreview
DoCmd.RunCommand acCmdZoom100

او استخدم هذا الكود .....

DoCmd.OpenReport "القيد", acPreview
Reports(القيد).ZoomControl = 100

 

[f16]

شكراً ا/ ناقل مرة اخرى على هذا الكود 

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

على كلاً اشكرك على جهدك وتعبك وعلى هذا الكود الرائع 

 

[ناقل]

6 ساعات مضت, f16 said:

شكراً ا/ ناقل مرة اخرى على هذا الكود 

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

على كلاً اشكرك على جهدك وتعبك وعلى هذا الكود الرائع 

 

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

Call SendKeys("{right}", True)
Call SendKeys("{right}", True)
Call SendKeys("{right}", True)
Call SendKeys("{right}", True)

 

[f16]

جزاك الله خير  اخي ناقل على هذه الاكواد الرائعة 

لقد نجح الكود في عمل المطلوب 

شكراً

 

[ناقل]

وجزاك الله خير .... بالتوفيق