احتاج كود يظهر لي عرض الورقة المطبوعة من التقرير

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

السلام عليكم 

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

اعلم مبدئيا حجم الورقة ومقاساتها جيدا ولكن ما أريده هو اسم تلك الخاصية بمحرر الأكواد لاستعمالها لغرض آخر ( وهو اعادة تحجيم عناصر التحكم حسب عرض الورقة).

بعض محاولاتي التي بائت بالفشل, جعلت هذا الكود عند فتح التقرير 

msgbox me.width
وكذلك هذا الكود
msgbox me.windowWidth

وجزاكم الله خيرا

 

[محمد أبوعبدالله]

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

استاذنا الفاضل @أبو عبدالله الحلوانى

الكود التالي صحيح

msgbox me.width

وهو يعطي النتيجة بالبوصة والبوصة = 2.541cm

ولمعرفة العرض بالضبط اقسم الرقم الناتج على 2.541cm

وايضاً 2.541cm = 1440 twips

ولتحديد العرض من خلال الكود نضرب 1440 twips  في الرقم المراد تحديد العرض به بالبوصة

Me.Width = 1440 * 6

تحياتي

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

السلام عليكم 

جزاك الله خيرا أخي علي سرعة الرد

ولكن ما اتعجب منه انه يعطيني نفس القياس عند تغير حجم ورقة الطباعة من  A4 الي A5

ما هي المشكلة لماذا لم يتم تغير قياس الورقة؟؟! 

[محمد أبوعبدالله]

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

قد تكون قمت بتغيير حجم الورق ولم تغير حجم التقرير نفسه بمعنى انه محتفظ بعرض التقرير نفسه حتى بعد تغيير حجم الورق

لذلك حرب تكبير وتصغير عرض التقرير  وسترى الاختلاف

تحياتي

 

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

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

أولا:

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

ثانيا:

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

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

مثلا خاصية عرض عنصر التحكم يمكن عرضها هكذا (msgbox control.width)

عرض الفورم يمكن معرفته هكذا (msgbox me.insidewidth)

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

أرجو ان يكون هذا قد أوضح الفكرة)

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

وبالموضوع مرفق للاستاذة أم عهود حفظها الله للتحكم الكامل بطباعة التقرير 

واعيد الفكرة عند تغير حجم الورقة الي A5 تبقي عناصر التحكم علي حجمها كما هي مما يجعل البيانات تنقسم علي صفحتين 

وراودتني فكرة بأن أقوم بتصغير حجم عناصر التحكم ليتلائم مع حجم الورقة الجديد 

وكان مطلع الكود هكذا 

dim mywidth as double , cntrolwidth as double, ctrl as control
mywidth = me.width

	for each ctrl in me.section(0).controls
		cntrolwidth = cntrolwidth + ctrl.width
	next

if mywidth < cntrolwidth then
	for each ctrl in me.section(0).controls
		 ctrl.width = ctrl.width - (ctrl.width* (mywidth/widthA4paper))
	next  
end if

وكانت النتيجة عدم حدوث شيء حيث أن عرض التقرير هو هو لم يتغير 

أرجو أن تكون الفكرة قد اتضحت الآن

وجزاكم الله عني وعن كل من قدمتم له يد العون خير الجزاء

 

تم تعديل ديسمبر 14, 2019 بواسطه أبو عبدالله الحلوانى

[محمد أبوعبدالله]

استاذنا الفاضل @أبو عبدالله الحلوانى

1 ساعه مضت, أبو عبدالله الحلوانى said:

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

اقصد انك قمت بتغيير خحم ورق الطباعة الى a5 لكن التقرير ما زال محتفظ باعداداته والعناصر التي عليه بنفس المقاسات لم تتغير

 

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

Me.TextBox1.Width = Me.TextBox1.Width / 2

فارجو ان يحاول معنا الاخوة في هذا الموضوع الشيق لعلنا نصل الى نتيجة ان شاء الله

تحياتي

 

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

السلام عليكم 

اعيد سؤالي من منظور آخر 

يوجد بالـ Excel في خيارات الطباعة خاصية تسمي Scale تعمل علي تقليل حجم الصفوف والأعمدة حتي يتم احتوائها بصفحة طباعة واحدة  

هل يوجد شئ مشابه لهذا بتقرير الأكسس 

[Khalid Jnb]

السلام عليكم

هذا المرفق للاستاذة زهرة 

اتمنى ان يكون النطلوب

تحياتيza-FullControlOfPrintReport2010.accdb

za-FullControlOfPrintReport2010.rar

تم تعديل ديسمبر 15, 2019 بواسطه خالد سيسكو

[jjafferr]

38 دقائق مضت, أبو عبدالله الحلوانى said:

هل يوجد شئ مشابه لهذا بتقرير الأكسس 

 

هذا الرابط به سؤالك 🙂

 

 

جعفر

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

22 ساعات مضت, jjafferr said:

هذا الرابط به سؤالك

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

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