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

[samiali4]

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

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

ارجو الافادة

 

[Yasser M mohamed]

up

[samiali2013]

اين خبراء الأكسيس !!!

[ابو عارف]

اخي موضوعك مكررة راجع موضو عك السابقة او جرب هذالكود

ستجد ملف 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 "تم تصدير الملف بنجاح"

 

[samiali4]

7 ساعات مضت, ابو عارف said:

اخي موضوعك مكررة راجع موضو عك السابقة او جرب هذالكود

ستجد ملف 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 "تم تصدير الملف بنجاح"

 

شكرا على استجابتك

لكن هذا الكود يرفض الحفظ اذا كان حجم الملف اكبر من 300 كيلوبايت

وليس هذا ما قصدته

انا أريده ان يحفظ الملف ويقلل حجمه او دقته بحيث لا يزيد حجمه عن 300 كيلو بايت

لاني احتاج لرفعه بعد ذلك على موقع لا يقبل الملفات التي يزيد حجمها عن 300 كيلوبايت

[samiali4]

ليه ما فيه رد ؟؟؟!!

[samiali4]

ليه ما فيه رد ؟؟؟!!

up