في مثال جميل للاخ أبو هاجر لطباعة التقارير
عبارة عن نموذج به مجموعة من الخيارات لطابعة التقرير وهذا النموذج يتم استدعائه عن طريق حدث النقر على زر الأمر :
[code]On Error GoTo Err_ÃãÑ0_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "PrintPreviewFrm"
DoCmd.OpenForm stDocName, , , stLinkCriteria, , , "Report1" ' íæÖÚ ÇÓã ÇáÊÞÑíÑ Ýí ãÊÛíÑ args ÇáÎÇÕ ÈÃãÑ openform
Exit_ÃãÑ0_Click:
Exit Sub
Err_ÃãÑ0_Click:
MsgBox Err.Description
Resume Exit_ÃãÑ0_Click
كيف أغير في هذا الكود بحيث أستطيع إستدعاء هذا النموذج عن طريق قائمة خاصة بطباعة التقارير
ولكم جزيل الشكر