سيد الأكـرت قام بنشر يونيو 7 مشاركة قام بنشر يونيو 7 اخوتي الكرام السلام عليكم ورحمة الله وبركاته لي طلب بسيط وارجو ان اجده عندكم وهو كود بسيط لحفظ اي صفحة اكسيل بنفس اسم الصفحة بصيغة pdf مع اماكينة اختيار مكان الحفظ بشرط ان يعمل الكود على الاصدارات القديمة من الاوفيس مثل 2003 1 رابط هذا التعليق شارك More sharing options...
Saleh Ahmed Rabie قام بنشر يونيو 7 مشاركة قام بنشر يونيو 7 وعليكم السلام ورحمة الله وبركاته هذا الكود يقوم بحفظ الصفحة الحالية في Excel بصيغة PDF تحت نفس اسم الصفحة: Sub SaveAsPDF() Dim ws As Worksheet Dim savePath As String Dim saveName As String ' احفظ اسم الصفحة الحالية Set ws = ActiveSheet saveName = ws.Name ' اطلب من المستخدم تحديد مكان الحفظ savePath = Application.GetSaveAsFilename(FileFilter:="PDF Files (*.pdf), *.pdf") ' حفظ الصفحة بصيغة PDF If savePath <> "False" Then ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End If End Sub يمكنك نسخ الكود أعلاه ولصقه في وحدة التعليمات البرمجية في Excel (Alt + F11)، ثم تشغيل الكود من خلال الضغط على F5. سيظهر للمستخدم نافذة لاختيار مكان الحفظ وسيتم حفظ الصفحة الحالية بصيغة PDF تحت نفس اسم الصفحة. 1 رابط هذا التعليق شارك More sharing options...
سيد الأكـرت قام بنشر يونيو 8 الكاتب مشاركة قام بنشر يونيو 8 شكرا لحضرتك يا افندم تم وضع الكود لكنه لم يعمل مرفق صورة والملف مع العلم ان الاوفيس المستخدم 2007 فاتورة.xls رابط هذا التعليق شارك More sharing options...
أفضل إجابة Saleh Ahmed Rabie قام بنشر يونيو 8 أفضل إجابة مشاركة قام بنشر يونيو 8 إليك كود VBA بسيط يمكنك استخدامه لحفظ الصفحة الحالية كملف PDF في Excel 2007: Sub SaveAsPDF() Dim savePath As String ' اطلب من المستخدم تحديد مكان الحفظ savePath = Application.GetSaveAsFilename(FileFilter:="PDF Files (*.pdf), *.pdf") ' حفظ الصفحة كملف PDF If savePath <> "False" Then ActiveSheet.ExportAsFixedFormat Type:=0, Filename:=savePath, Quality:=1, IncludeDocProperties:=True, IgnorePrintAreas:=False End If End Sub يمكنك نسخ الكود أعلاه ولصقه في وحدة VBA في Excel 2007، ثم تشغيله لحفظ الصفحة الحالية كملف PDF. يرجى ملاحظة أن جودة الصورة المصدرة قد تكون أقل من ExportAsFixedFormat المتاحة في إصدارات أحدث من Excel. 2 1 رابط هذا التعليق شارك More sharing options...
سيد الأكـرت قام بنشر يونيو 8 الكاتب مشاركة قام بنشر يونيو 8 شكرا جزيلا لحضرتك وكل عام وانتم بخير 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان