طباعة السجل الحالي فقط داخل التقرير وليس الكل

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

المشكلة ليست بتحديد سجل او حقل واظهاره التقرير اخي محمد ..

المشكلة هي لدي تقرير مكون من 80 سجل يعني كل صفحه خاصة بطالب وعامل شهادة تكريم .

وبالاسفل زر التنقل بين السجلات موجود لكن المشكلة " عند الضغط على طباعة " يطبع لك جميع الشهادات لجميع الطلاب .

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

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

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

مشكلة اذا تضع تلميح في التقرير بأن من اراد الطباعة يختار خصائص الطباعة ويختار الصفحة الحالية<== هههههه اصبح برنامج استدلاخي .

لذلك حبيت يكون هناك شرح او طريقة او كود لطباعة الصفحة الحالية في التقرير " عندما يكون التقرير مكون من عدد كبير من الصفحات " .

تفضل الرابط عله ينفعك

/index.php?showtopic=124152

تحياتي

تفضل اخي الكريم

1. افتح التقرير على كامل السجلات ( ازرار التنقل موجوده في التقرير )

2. اضغط بالماوس الأيمن على السجل المعروض امامك وستظهر لك قائمة منبثقه اضغط منها على طباعة ( Print )

3. سيتم طباعة السجل الحالي الذي تشاهده

تنقل بين السجلات في التقرير واطبع ما تريد طباعته

za-Students-1.rar

بالتوفيق

بارك الله فيك يازهرة دائماً وابداً مبدعة .

ولكن ..لو نضع زر امر بدل الضغط بزر الماوس الايمن على التقرير .

مثلاً .. زر امر طباعة يظهر في التقرير ويكون (خصائص هذا الزر مثلاً غير مرئي) لكي لايظهر اثناء الطباعة.

وايضاً لو نضيف زر امر التالي والسابق للتنقل ونعطل ازرار التنقل الافتراضية يكون افضل وافضل .

مجرد رأي

لجل نسهل عملية الطباعة والفهم لمستخدم البرنامج .

ولكن اذا كان مستحيل عمل هذا الشيء ..فأنتي قمتي بالواجب والمفيد اهم شيء ينبطع الحالي .

بارك الله فيك

الاناكوندا كتب:

بارك الله فيك يازهرة دائماً وابداً مبدعة .

ولكن ..لو نضع زر امر بدل الضغط بزر الماوس الايمن على التقرير .

مثلاً .. زر امر طباعة يظهر في التقرير ويكون (خصائص هذا الزر مثلاً غير مرئي) لكي لايظهر اثناء الطباعة.

وايضاً لو نضيف زر امر التالي والسابق للتنقل ونعطل ازرار التنقل الافتراضية يكون افضل وافضل .

مجرد رأي

لجل نسهل عملية الطباعة والفهم لمستخدم البرنامج .

ولكن اذا كان مستحيل عمل هذا الشيء ..فأنتي قمتي بالواجب والمفيد اهم شيء ينبطع الحالي .

بارك الله فيك

اخي الفاضل

اتمنى ان تعرف هذه المعلومه بارك الله بك وهي :

لا يوجد شيء اسمه زر أمر في التقارير

انما تكون ازرار الأوامر فقط على النماذج

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

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

اذا لم ترغب في ذلك فخلاص انسى الموضوع وكأن شيء لم يكن

بالتوفيق

اها .. طالما ..لايمكن عمل الازرار بالتقارير .. مباشرةً ..

سوف نطبق القائمة المنبثقة بالزر الأيمن ..

شكراً لك اختي زهرة .

تحيتي

اختي زهرة .

:blush:

انشأت ماكرو وعملت به نفس الخيارات ونفس المسمى .

AutoExec

Print

ووحدة نمطية نسخت بها جميع الكود الموجود بمثالك .

Module1

ولكن عند تنفيذه يظهر لي رسالة ..

لقد ادخلت تعبيراً يتطلب ان يكون التقرير هو الإطار النشط

:sad: :sad:

لا إله إلا الله محمد رسول الله

بدينا في الإزعاج

شوف وانا اختك

اغلب الأحيان اشوف اسئلة في المنتدى وامتنع قطعيا عن الإجابه عليها ولا حتى انظر لها

والسبب بارك الله بك من كثرة الاسئلة المزعجة التي تصيبني لحد الجنون فيما لو استمريت بالرد على نفس الشخص

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

لهذا شوف الشرح على الصوره

بالتوفيق

شريط الادوات المخصص طباعة من النوع الخطأ (قائمة، قائمة مختصرة أو شريط ادوات)

للخاصية التي يستخدم فيها .

هذه النتيجة ..

بارك الله فيك اختي زهرة احتسبي الأجر عند الله عز وجل. ولاتنزعجي من الردود.

ليس كل الناس ماشاء الله مثل عقلك وخبرتك .

نحن الاغبياء سبب غبائنا هو سوء إصال المعلومة لمخيخنا الصغير . ونقص الشرح الوافي .

مو شرط تشرحي صور الله يحفظك لو كتابة ولكن تكون بخطوات متتالية لجل الغبي يفهم .

وعند شرحك ومساعدتك ضعي امامك بأن الشخص مبتدئ وليس ذو خبره لجل تصل المعلومة له بغض النظر خبره او مبتدئ المهم اصال المعلومة بشكلها السليم .

فالكبار بدأو صغار . واكرر اسفي على ازعاج سموكم الكريم .

سأتجه لقوقل عم قوقل " يصبر " ولاينزعج من احد ومايقصر ان شاء الله .

الازعاج هذا كله لجل زر طباعة باليمين بلاش منه :)

تحيتي

اخي الفاضل

هل من الممكن تشرح لي ماذا عملت انت بالضبط

حتى اعرف ين الخطأ الذي وقعت فيه

او اين ظهرك لك خطأ التطبيق عندما حاولت التطبيق

طبعا انا اعرف الخطأ الذي وقعت انت فيه لأنه ظاهر من جوابك

يجب ان يكون شريط القوائم الطباعة ( منبثق )

اعرف هذا الشيء لظهور هذه الرسالة لديك ( شريط الادوات المخصص طباعة من النوع الخطأ (قائمة، قائمة مختصرة أو شريط ادوات) للخاصية التي يستخدم فيها .

هل تعرف تصل اليها ام لا

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

بالتوفيق

عملت شريط قوائم مخصص وفيه زر الطباعة وجعلته منبثق والأن عند الضغط على زر الماوس على التقرير يظهر امر طباعة .

وعند الضغط على طباعة يطبع الجميع ليس الحالي . يطبع الجميع .

:blush:

الاناكوندا كتب:

عملت شريط قوائم مخصص وفيه زر الطباعة وجعلته منبثق والأن عند الضغط على زر الماوس على التقرير يظهر امر طباعة .

وعند الضغط على طباعة يطبع الجميع ليس الحالي . يطبع الجميع .

:blush:

اخي الفاضل

ومن الذي ابلغك ان تعمل شريط قوائم مخصص للطباعه

قول آمين ان الله يهديك

يا أخي استخدم شريط الأدوات الذي عملته لك في التقرير

لأن هذه القائمة مرتبطة بالوحدة النمطيه المخصصة لطباعة السجل الحالي ومن ثم استخدمنا لها الماكرو Print ( طباعه )

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

1. اولا استورد الماكرو والوحده النمطية الى برنامجك

2. قم بإنشاء شريط ادوات ونعطيه اسم ( طباعه )

3. نقوم الآن بسحب الماكرو Print الى شريط الأدوات الجديد الذي قمنا بعمله

4. الآن شريط الأدوات الجديد ( طباعة ) سوف نجعله قائمة منبثقه بهذه الطريقة

5. نختار من القائمة شريط الأدوات طباعة ونختار من القائمة السفلية منبثق

6. الآن نقوم بإغلاق اللوحات الخاصة بأشرطة الأدوات لأننا انتهينا منها

نذهب الآن الى التقرير ونفتحه في وضع التصميم وفي خانة قوائم مختصره نختار طباعة

الآن لو قمت بالضغط بالماوس الأيمن على التقرير ستظهر لك القائمة المنبثقه طباعة

بالتوفيق

الله يجزاك خير اختي زهرة شاكر ومقدرك لك .. نجحت العملية .

بارك الله فيك .

اختي زهرة هناك مشكلة تظهر لي .

طبقت شرحك سابقاً ولكن .. اكتشفت بعد اغلاق البرنامج وتشغيله فيما بعد.

لاتعمل طباعة التقرير ويقول هناك دالة غير موجوده.

افتح الوحدة النمطية احصل كودها هكذا .

Option Compare Database فقط ؟ لماذا ؟

وارجع واضيف لها الكود المشروحه بالأعلى

Public Function PrintCurrentPage()

On Error GoTo طباعة_Err

Dim CurrentPage

CurrentPage = Screen.ActiveReport.Page

DoCmd.PrintOut acPages, CurrentPage, CurrentPage, acHigh, 1, False

طباعة_Exit:

Exit Function

طباعة_Err:

MsgBox Error$

Resume طباعة_Exit

End Function

ويعمل معي .. وبعد فتره عند الدخول للبرنامج ترجع لي المشكلة نفسها !! واضطر لإضافة الكود

من جديد ماهو السبب ؟

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

لأني لا اريد ان يظهر التقرير بشكل مباشر عند فتح البرنامج دون الضغط عليه .

الاناكوندا كتب:

اختي زهرة هناك مشكلة تظهر لي .

طبقت شرحك سابقاً ولكن .. اكتشفت بعد اغلاق البرنامج وتشغيله فيما بعد.

لاتعمل طباعة التقرير ويقول هناك دالة غير موجوده.

افتح الوحدة النمطية احصل كودها هكذا .

Option Compare Database فقط ؟ لماذا ؟

وارجع واضيف لها الكود المشروحه بالأعلى

Public Function PrintCurrentPage()

On Error GoTo طباعة_Err

Dim CurrentPage

CurrentPage = Screen.ActiveReport.Page

DoCmd.PrintOut acPages, CurrentPage, CurrentPage, acHigh, 1, False

طباعة_Exit:

Exit Function

طباعة_Err:

MsgBox Error$

Resume طباعة_Exit

End Function

ويعمل معي .. وبعد فتره عند الدخول للبرنامج ترجع لي المشكلة نفسها !! واضطر لإضافة الكود

من جديد ماهو السبب ؟

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

لأني لا اريد ان يظهر التقرير بشكل مباشر عند فتح البرنامج دون الضغط عليه .

اخي الفاضل

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

بالتوفيق