استيعاب سجلات التقرير كلها فى صفحة واحدة مهما اختلف عددها
السلام عليكم و رحمة الله
عندى تقرير يظهر أسماء طلاب أحد الفصول
و عدد الفصول متفاوت
مثلا فصل = 51
و فصل آخر = 33
يمكن ضبط حجم مربعات النص و تصغيرها ليظهر كل أسماء الفصل ذى ال 51 طالبا فى صفحة واحدة
لكن
عند طباعة فصل ذى 33 طالبا
تعرفون المشكلة
يكون هناك فراغ أسفل آخر سجل
و لو ضبطنا حجم مربعات النص على مقاس ال 33 طالبا
فعند طباعة فصل 51 طالبا فإنه يظهر فى صفحتين
و كلا الأمرين لا نريدهماقمت بحل المشكلة
بهذا الكود
If Me.mycou
السلام عليكم
اللي عملته هو:
1. يطبع التقرير صفحة واحدة بغض النظر عن عدد السجلات ،
2. التحكم في حجم الخط ، وتجعله في حجم مربع النص
1- بسبب ان اعدادات طابعتي تختلف عن طابعتك ، وطابعة المستخدم الاخير ، فجعلت الكود يحسب كل ارتفاعات الطابعة واقسام التقرير تلقائيا:
hSum = Me.Section(1).Height + Me.Section(2).Height + Me.Section(3).Height + Me.Section(4).Height
pSum = Me.Printer.TopMargin + Me.Printer.BottomMargin
extra = 576 * 2.5 'to tight
