صندوق اختيار الطابعة قبل طباعة التقرير

في زر أمر قم بإضافة الكود التالي :

DoCmd.RunCommand acCmdPrint

تحياتي

تفضل اخى الكريم الحل و هو من احدى ابداعات الاخت الكريمة ام عهود

اولا تنشئ دالة

Public Function PrintOut()

On Error GoTo ErrorTrap

DoCmd.RunCommand acCmdPrint

Exit Function

ErrorTrap:

If Err.Number = 2501 Then

Exit Function

Else

MsgBox Err.Number & vbCrLf & Err.Description

End If

End Function

و فى حدث الضغط على زر الطباعة

Private Sub but_report_Click()

DoCmd.SelectObject acReport, "report name", True

Call PrintOut

End Sub

بارك الله فيكم ...

تمت الإجابة .

لا أملك لكم سوى الدعاء لكم في ظهر الغيب

شكرا للسائل والمجيب لقد إستفدت من ذلك وجاري التجربة

أبوعمر الجنوبي كتب:

شكرا للسائل والمجيب لقد إستفدت من ذلك وجاري التجربة

طيب لو عايز اعرف طبعت كام صفحة

بمعنى انه عند تنفيذ أمر الطباعة يلحق بجدول اخر رقم الموظف الذى تم طباعته