اذهب الي المحتوي
أوفيسنا

كيقية حفظ ورقة من ملف اكسيل على شكل ملف بي دي اف وتسميتها باسم خلية معينة من الورقة

محمد ابراهيم 78

بواسطه محمد ابراهيم 78
في منتدى الاكسيل Excel

 مشاركة

الردود الموصى بها

رجب جاويش

رجب جاويش

قام بنشر
قام بنشر

تفضل أخى

Sub PDF_SAVE()
Dim PDF_Name As String
On Error Resume Next
F_path = ThisWorkbook.Path
F_Name = Range("J4").Value
PDF_Name = F_path & "\" & F_Name & ".pdf"
If Not Dir(PDF_Name, vbDirectory) <> vbNullString Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
PDF_Name, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Else
MsgBox "هذا الملف موجود مسبقا"
End If
End Sub

حفظ ملف بامتداد PDF.rar

رجب جاويش

رجب جاويش

قام بنشر
قام بنشر

أخى الفاضل :

أولا : لك منى دعوة طيبة بتغيير اسم الظهور الى اللغة العربية حتى يسهل التواصل بيننا ( طبقا لسياسة المنتدى )

ثانيا: تفضل ما تريد

 

حفظ ملف بامتداد PDF مع تحديد مكان الحفظ.rar

رجب جاويش

رجب جاويش

قام بنشر
قام بنشر

أخى الفاضل المحترم / محمد ابراهيم

أتقدم لك بخالص تحياتى وتقديرى على سرعة الاستجابة وتغيير اسم الظهور الى اللغة العربية

أخى الفاضل

قم بوضع ملف الاكسل داخل المجلد الذى تريدة على سطح المكتب

وسوف يقوم الكود بحفظ نسخة PDF  فى نفس المجلد

مع استخدام الملف والكود الموجود فى المشاركة الثانية

الشيباني1

الشيباني1

قام بنشر
قام بنشر

استاذنا القدير  تحية طيبه  الموضوع يهمني جدا وانا استخدم اكسيل 2003  هل من ايضاح للكيفيه التي يتم بها التحضير للحفظ بهذه الصيغه ضمن هذا الملف (D:pdf files ) مع التقدير

  • 4 years later...
زائر
هذا الموضوع مغلق.
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept