تغيير ارتساء التقرير

[عبد الله قدور]

السلام عليكم

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

  If DLookup("[check]", "tblreport", "[id]=1") = 1 Then
  Me.Printer.Orientation = acPRORLandscape

  ElseIf DLookup("[check]", "tblreport", "[id]=1") = 2 Then
  Me.Printer.Orientation = acPRORPortrait
  
 End If

فهل يمكن تعديل الكود ليتم ذلك فخاصية الارتساء غير موجودة في التقارير

 

[محمد ايمن]

فكرة على الهامش

لماذا لا تصمم تقريرين الاول عمودي و الثاني افقي و بناء عليه يتم الاختيار

[عبد الله قدور]

17 دقائق مضت, محمد ايمن said:

لماذا لا تصمم تقريرين الاول عمودي و الثاني افقي و بناء عليه يتم الاختيا

فكرة لا بأس بها اخي محمد ايمن  لكن اذا كان البرنامج يحتاج الى 20 تقرير تقريبا فيجب علي انشاء 40 تقرير

 

[محمد ايمن]

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

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

السلام عليكم 

خطرت لى تلك الفكرة

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

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

آسف ليس لدى وقتا كافيا للتنفيذ الفكرة الا أنى أرجو أن يكون الأمر واضح 

 

[عبد الله قدور]

السلام عليكم

اهتديت الى هذا الحل ولكني لم اقتنع به بشكل كامل بحيث اقوم بضرب عرض عنصر التحكم ب 1.44

  Me.ta1.width = Me.ta1.width * 1.44
  Me.address.width = Me.address.width * 1.44
Me.pagenumber.width = Me.pagenumber.width * 1.44

 

[ابو جودي]

في 11/5/2016 at 05:23, عبد الله قدور said:

السلام عليكم

اهتديت الى هذا الحل ولكني لم اقتنع به بشكل كامل بحيث اقوم بضرب عرض عنصر التحكم ب 1.44

  Me.ta1.width = Me.ta1.width * 1.44
  Me.address.width = Me.address.width * 1.44
Me.pagenumber.width = Me.pagenumber.width * 1.44

 

طب شوف المثال ده يمكن يعجبك فى شئ 

Full Control Of Print Report.rar

[عبد الله قدور]

9 ساعات مضت, ابا جودى said:

طب شوف المثال ده يمكن يعجبك فى شئ 

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