تصدير نموذج بصيغة pdf وتحديد حجم الملف الا يتعدي 300 كيلوبايت

[samiali2013]

انشت نموذج وحدد ككود لتصديره بصيغة pdf

ولكن اريد ان يتم التحكم بحجم الملف المخرج بحيث لا يتعدى حجمه 300 كيلوبايت

ارجو الافادة

[ابو عارف]

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

جرب هذا كود 

علما بان  FRM  غير الى اسم نموذج مراد تصديره و Dlt الى اسم ملف 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 "تم تصدير الملف بنجاح"