اخي موضوعك مكررة راجع موضو عك السابقة او جرب هذالكود
ستجد ملف pdf في نفس مسار البرنامج
file1 = CurrentProject.Path & "\Dlt.pdf"
DoCmd.OutputTo acOutputForm, "FRM", acFormatPDF, file1
fileSz = FileLen(file1) / 1024
If fileSz > 300 Then
If MsgBox("عفواً... لقد تجاوز حجم الملف من حد مسموح للمتابعة اضغط موافق و للالغاء اضغط الغاء", vbYesNo) = vbNo Then
Kill file1
Exit Sub
End If
End If
MsgBox "تم تصدير الملف بنجاح"