عبد اللطيف سلوم

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

Dim tdf As TableDef For Each tdf In CurrentDb.TableDefs If tdf.Name Like "THE_NAME*" Then tdf.Attributes = dbHiddenObject End If Next tdf كرر العملية 5 مرات اكتب اسم الجدول بدل كلمة THE_NAME

هناك طريقتين الشرح بالصور المرفقة

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

عملت خط احمر لكن شكله ليس سياحي

يا عيني عليك معلم @jjafferr هذا التنسيق أفضل ونستطيع الطباعة عامودي على ورق A4 يبقى شيء صغير والطمع بالاجاويد شراوكم هل نستطيع وضع سطر بين التقارير لكي نميز ان هذا التقرير انتهى مثلا في الصورة المرفقة نضع سطر سميك قبل مسلسل 193

مبروك ومنها للاعلى

اخي الكريم طلبك ما كان هيك على كل رح نحاول

احسنت صديقي هذا هو المطلوب

تفضل Database1.accdb

@jjafferr

ما افهمت عليك يا ريت تعطيني مثال عملي مطبق على القاعدة المرفقة اقتنع تبالفكرة لكن مش عارف اطبقها

السلام عليكم ارجو التكرم بالمساعدة مرفق جدول وتقرير بدو ن بيانات عرض التقرير كبير جدا حاولت اعمل الرأس عامودي بدل افقي لكن الزبون لا يريد ذلك يريده افقي والورق لازم يكون A4 مش شرط عرضي والا عامودي اتمنى تكو ن الفكرة وصلت انتظر مروركم الكريم تقرير.accdb

تفضل ............ بعد اذن الاخ @محمد احمد لطفى التسديد (6).accdb

الحمد لله رب العالمين توصلت الى الحل لوحدي