كود طباعة الصفحة الحالية

[dd13901390]

بعد التحية للاخوان الكرام اريد كود طباعة الصفحة الحالية في التقرير يطبع فقط الصفحة الحالية دون الصفحة الثانية 

الطالب.accdb

[منتصر الانسي]

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

الطالب.accdb

[kkhalifa1960]

تفضل استاذ @dd13901390 تعديل الماكرو بالصورة .

                                                               

[Foksh]

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

Private Sub أمر25_Click()
On Error Resume Next

    Dim ID As Long
    ID = Me.رقم_الهوية
    DoCmd.OpenReport "T1", acViewNormal, , "[رقم الهوية]=" & ID

On Error GoTo 0
End Sub

 

ملفك بعد التعديل :-

الطالب.zip