كيفية طباعة اكثر من نسخه من التقرير ؟؟؟؟؟؟

الأخ فوزي

أبسط طريقة لفتح تقرير دون معاينته وضع عملية تكرارية للطباعة مثال :

Dim I As Byte

عدد_النسخ = InputBox("أدخل عدد النسخ المطلوب طباعتها :", "عدد النسخ")

If IsNumeric(عدد_النسخ) Then

For I = I To عدد_النسخ

DoCmd.OpenReport "اسم التقرير"

Next I

Else

MsgBox "البيانات التي أدخلتها ليست بيانات رقمية .", vbCritical

End If

لإظهار مربع حوار الطباعة بعد فتح التقرير مباشرة :

DoCmd.OpenReport "اسم التقرير", acViewPreview

DoCmd.RunCommand acCmdPrint

طريقة أخرى ولكن يلزم منها فتح التقرير في المعاينة :

DoCmd.OpenReport "اسم التقرير", acViewPreview

ثم استعمل السطر التالي بعد تحديد الاختيارات فيه :

DoCmd.PrintOut [printrange][, pagefrom, pageto][, printquality][, copies][, collatecopies]

DoCmd.PrintOut نطاق الطباعة , نموذج الصفحة , صفحة إلى , نوعية الطباعة , عدد النسخ , ترتيب النسخ

مزيد من الشرح

خيارات printrange نطاق الطباعة :

acPrintAll (default) : الكل

acSelection : التحديد

acPages : صفحة

خيارات pagefrom نموذج الصفحة :

إذا اخترت في الخيار السابق acPages يجب وضع رقم بداية الصفحات المطبوعة .

خيارات pageto إلى صفحة :

إذا اخترت في الخيار ماقبل السابق acPages يجب وضع رقم نهاية الصفحات المطبوعة .

خيارات printquality نوعية الطباعة :

acDraft : مسوده

acHigh (default) : عالية

acLow : منخفضة

acMedium : متوسطة

copies عدد النسخ :

اكتب عدد النسخ رقما .

collatecopies ترتيب النسخ :

True نعم

False لا

أسهل طريقة للكود السابقة افتح ماكرو جديد واختر إجراء PrintOut وإكمال المطلوب في الأسفل وإذا أردت أن تحول الماكرو إلى إجراء VBA فاحفظ الماكرو ثم أغلقه ثم انقر على اسمه مرة واحده في لإطار قاعدة البيانا ثم من قائمة أدوات ماكرو تحويل وحدات ماكرو إلى إجراء فيوجل بيسك .

ولك تحياتي

شكراًُُ

والله يعطيك الصحه والعافيه

قوزي