طباعة التقارير

يمكنك عمل شريط أدوات وتضع به الزر ( طباعة .... Ctrl+p)

وتقوم بتحمل هذه الشريط أثناء فتح التقرير وتلغى التحميل أثناء غلق التقرير حتى لا يظهر شريط الأدوات هذا على القاعدة عموما .

ومن هذا الزر سيقوم بفتح مربع حوار الطباعة وبه ما تريد

أشرف خليل

اخي اشرف خليل

شريط الادوات الذي به الزر ( رمز الطابعة موجود قد اضفته من البداية ) قصدي شريط ادوات انا عملته .

لكن لم افهم قصدك هل اضيف شريط ادوات ثاني

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

لك تحياتي .

1- طباعة الصفحات من إلى :

ضع الدالة التالية في وحدة نمطية عامة :

Function طباعة()

On Error GoTo طباعة_Err

Dim صفحة_البداية

Dim صفحة_النهاية

صفحة_البداية = InputBox("أدخل الصفحة التي ترغب في بدء الطبع منها :", "رقم صفحة البداية")

If Not IsNumeric(صفحة_البداية) Then

MsgBox "يجب إدخال رقم صحيح ."

Exit Function

End If

صفحة_النهاية = InputBox("أدخل الصفحة التي ترغب في انتهاء الطباعة عندها :", "رقم صفحة النهاية")

If Not IsNumeric(صفحة_النهاية) Then

MsgBox "يجب إدخال رقم صحيح ."

Exit Function

End If

DoCmd.PrintOut acPages, صفحة_البداية, صفحة_النهاية, acHigh, 1, True

طباعة_Exit:

Exit Function

طباعة_Err:

MsgBox Error$

Resume طباعة_Exit

End Function

اضغط بزر الفأرة الأيمن على أشرطة الأودات ثم اختر تخصيص ثم صفحة التبويب الأوامر ثم اضغط بزر الفأرة الأيسر على مخصص وانقلها إلى شريط الأدوات المطلوب وضع الزر عليه ثم اضغط على الزر الجديد بزر الفأرة الأيسر واختر خصائص ثم في خاصية عند الإجراء ضع =طباعة()

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

2- طباعة الصفحة الحالية

في الوحدة النمطية العامة ضع :

Function طباعة_الصفحة_الحالية()

On Error GoTo طباعة_Err

Dim صفحة_البداية

Dim صفحة_النهاية

صفحة_البداية = Screen.ActiveReport.Page

صفحة_النهاية = صفحة_البداية

DoCmd.PrintOut acPages, صفحة_البداية, صفحة_النهاية, acHigh, 1, True

طباعة_Exit:

Exit Function

طباعة_Err:

MsgBox Error$

Resume طباعة_Exit

End Function

وأنشئ له زر كما سبق وضع في خاصية عند الإجراء ضع =طباعة_الصفحة_الحالية()

ولك تحياتي

استاذي الكبير ابو حمود

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

استاذي الكبير /

عملت بما كتبت وبالفعل الان اتمكن من الطباعة الحالية وطباعة الصفحات المحددة . ولك الشكر الجزيل.

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

وكل اسفي لك على كثرة استفتاراتي . لكنك الوحيد الذي اجد عنده حل مشاكلي

افتح التقرير في عرض التصميم أظهر خصائص التقرير في صفحة التبويب غير ذلك في خاصية شريط الأدوات اختر اسم الشريط من القائمة ، احفظ التقرير ثم أغلقه ، إن كان الشريط ظاهرا فأغلقه قبل فتح التقرير وسيظهر ويختفي مع التقرير .

وفقك الله