بعد اذنكم اضيف مشاركة . واذا لاتريد فتح التقرير في اضافة بسيطة عند تصير التقرير .
' , , , acHidden
Badge_Output = Application.CurrentProject.Path & "\Badges.PDF"
stDocName = size
DoCmd.OpenReport stDocName, acViewPreview, , , acHidden
DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, Badge_Output, True, , , acExportQualityPrint
DoCmd.Close acReport, stDocName