رسالة تحذيرة قبل الطباعة

[البراقع]

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

ابغى يا شباب رسالة تحذيرية عند الضغط على زر الطباعة بنعم او لا.

اذا نعم يطبع اذا لا يلغى امر الطباعة

افيدوني بارك الله فيكم.

[امير عاطف]

If MsgBox("هل أنت متأكد من طباعة التقرير", vbQuestion + vbYesNo, "Officena") = vbYes Then
'DoCmd.OpenReport "ReportName"
Else
SendKeys ("cancel")
End If