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

[حامل المسك]

السلام عليكم ورحمة الله ،،

وفقكم الله أساتذتنا الفضلاء،،

لدي برنامج به تقرير التقرير الرئيسي يحوي تقرير فرعي، أريد كرما في حال إعطاء أمر طباعة أن يطبع البرنامج نسختين في نفس الوقت نسخة بالتقرير الفرعي ونسخة بدونه،،

فهل بالإمكان يا كرام،،

إخفاء التقرير الفرعي في الطباعة.accdb

[jjafferr]

وعليكم السلام 🙂

 

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

Private Sub cmd_tablAA_Click()

    DoCmd.OpenReport "tablAA", , , , , "All"
    DoCmd.OpenReport "tablAA", , , , , "No_Sub"
End Sub

 

بهذه الطريقة نرسل قيمة في المتغير OpenArgs ليكون موجودا في التقرير ،

في المتغير الاول نطبع التقرير مع التقرير الفرعي ،

وفي المتغير الثاني سنطبع التقرير بدون التقرير الفرعي.

 

في التقرير ، التقرير الفرعي موجود في قسم التفصيل من النموذج الرئيسي ،

.

على حدث "عند التنسيق" لهذا لقسم التفصيل ، نكتب هذا الكود :

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)

    If Me.OpenArgs = "No_Sub" Then
        Me.tbBB.Visible = False
    Else
        Me.tbBB.Visible = True
    End If
    
End Sub

 

جعفر

1381.إخفاء التقرير الفرعي في الطباعة.accdb.zip

[SEMO.Pa3x]

عليكم السلام..

تفضل:

Public hide_SubReport As Boolean

Private Sub cmd_print_Click()
    DoCmd.OpenReport "tablAA"
    hide_SubReport = True
    DoCmd.OpenReport "tablAA"
    hide_SubReport = False
End Sub

 

Option Compare Database

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)
    If Form_frm_print.hide_SubReport = True Then
        tbBB.Visible = False
    Else
        tbBB.Visible = True
    End If
End Sub

إخفاء التقرير الفرعي في الطباعة.accdb

تم تعديل يونيو 2, 2021 بواسطه SEMO.Pa3x

[حامل المسك]

ما شاء الله إبداع،،

بوركت جهودكم،،

هل يمكن إظهار مربع اختيار نوع الطابعة قبل الطباعة،،؟

[jjafferr]

حياك الله 🙂

 

29 دقائق مضت, حامل المسك said:

هل يمكن إظهار مربع اختيار نوع الطابعة قبل الطباعة،،؟

 

تفضل:

(تمت الاجابة) اختيار طابعة لطباعة التقرير بشرط الرقم الوظيفي - قسم الأكسيس Access - أوفيسنا (officena.net)

 

ولقيت عندي هذا المثال المرفق ، ولا اعرف شيء عنه 🙂

 

جعفر

SelectAnd ResetPrinter2k.zip

[حامل المسك]

كتب الله لكم الأجر وبارك لكم في جهودكم ،،

جدا رائع ،،

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

سلمكم الله ورعاكم،،

[jjafferr]

10 دقائق مضت, حامل المسك said:

المشلكة أنه يغير الطابعة الافتراضية

هذا غير مقبول.

 

 

الرابط فيه طريقة لحل هذا الموضوع 🙂

 

جعفر

[jjafferr]

وهنا رابط آخر لأخونا @ابا جودى

هدية : التحكم في الطابعة وخصائصها طباعة التقارير - قسم الأكسيس Access - أوفيسنا (officena.net)

 

جعفر

[حامل المسك]

منذ ساعه, jjafferr said:

وهنا رابط آخر لأخونا @ابا جودى

هدية : التحكم في الطابعة وخصائصها طباعة التقارير - قسم الأكسيس Access - أوفيسنا (officena.net)

 

جعفر

إبداااااااااااااااااااع،،،