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

[مندوب]

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

[التقني]

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

لطباعة البيانات الحالية ( التي تظهر أمامك على النموذج ) اتبع الخطوات التالية

1- انشاء استعلام qLetr مستمد من جدول tblLtr

2-ضع في معايير الاستعلام للحقل ID الجملة التالية :

Like [forms]![tblLtr]![ID] & "*"

حيث: ID هو رقم الرسالة tblLtrهو اسم الجدول 3- انشئ تقرير rLtr يستند الى الاستعلام qLetr 3- أنشئ زر في النموذج اسمه VCurnt وضع في حدث عند الضغط على الزر الكود التالي :

On Error GoTo Err_VCurnt_Click
Me.Refresh
    Dim stDocName As String

    stDocName = "rLtr"
    DoCmd.OpenReport stDocName, acPreview

Exit_VCurnt_Click:
    Exit Sub

Err_VCurnt_Click:
    MsgBox Err.Description
    Resume Exit_VCurnt_Click

End Sub

عند الضغط على الزر سوف يتم اظهار التقرير وفيه بيانات الحقول التي في النموذج التي أمامك

بالتوفيق

تم تعديل يناير 18, 2006 بواسطه التقني