۩◊۩ أبو حنين ۩◊۩ قام بنشر ديسمبر 26, 2013 مشاركة قام بنشر ديسمبر 26, 2013 الساده الكرام بعد التحيه لجميع اعضاء المنتدى ارجو المساعده فى صياغه كود لحفظ شيت اكسيل داخل ملف او اكثر من شيت بشكل pdf على ان يكون مكان حفظ الشيت او مجموع الشيتات على desktop اكرمكم الله رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر ديسمبر 26, 2013 الكاتب مشاركة قام بنشر ديسمبر 26, 2013 الساده الافاضل هل يمكن اضافه تاريخ اليوم لاسم الشيت الذى يتم حفظه بصيغه pdf فى ذلك الكود Sub PDF_ALL() Range("C45").Select Sheets(Array("الاتوبيس", "طائرة", "مطروح", "تعديل")).Select Sheets("الاتوبيس").Activate ChDir "C:\Users\HaNeN\Desktop" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\HaNeN\Desktop\مانفست كلابشة.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر ديسمبر 26, 2013 مشاركة قام بنشر ديسمبر 26, 2013 السلام عليكم ستجد في هذا الملف - تحويل الملف بالكامل الى ملف pdf - تحويل ورقت عمل اختيارية بواسطة قائمة منسدلة الى ملف PDF - تحويل نطاق محدد الى ملف PDF كما اني جعلة مسارحفظ ملف PDF الذي سينشاء وتسميته ايضا اختيارية ارجو ان يكون فيه الفائدة لك ولجميع الاعضاء تحياتي 1 رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر ديسمبر 26, 2013 مشاركة قام بنشر ديسمبر 26, 2013 السلام عليكم ستجد في هذا الملف - تحويل الملف بالكامل الى ملف pdf - تحويل ورقت عمل اختيارية بواسطة قائمة منسدلة الى ملف PDF - تحويل نطاق محدد الى ملف PDF كما أني جعلة مسار حفظ ملف PDF الذي سينشاء وكذلك تسميته اختيارية ارجو ان يكون فيه الفائدة لك ولجميع الاعضاء تحياتي Convert to PDF.rar Convert to PDF.rar 2 1 رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر ديسمبر 27, 2013 الكاتب مشاركة قام بنشر ديسمبر 27, 2013 السلام عليكم الاخ العزيز شوقى جزاك الله خيرا على مجهودك الرائع هل بمكن اضافه تاريخ الغد لاسم الشيت الافتراضى فى الكود بصفه دوريه اليك الكود Sub PDF_ALL() Range("C45").Select Sheets(Array("الاتوبيس", "طائرة", "مطروح", "تعديل")).Select Sheets("الاتوبيس").Activate ChDir "C:\Users\HaNeN\Desktop" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\HaNeN\Desktop\مانفست كلابشة.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub بمعنى اسم الملف بعد الحفظ ( مانفست كلابشة ) هلى يمكن ان يكون ( مانفست كلابشة 2014/1/1 ) على اعتبار ان 2014/1/1 هو تاريخ الغد السوال الاخر هلى يمكن ارسال الملف بعد حفظه بصيغه pdf عن طريق الاميل outlook فى نفس الكود رابط هذا التعليق شارك More sharing options...
privilege قام بنشر ديسمبر 31, 2013 مشاركة قام بنشر ديسمبر 31, 2013 أكثر من رائع تحياتى لكم أساتذتى جميعا وخاصة أ / شوقى ربيع وتقبلوا منى جميعا وافر الإحترام والتقدير رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر ديسمبر 8, 2018 أفضل إجابة مشاركة قام بنشر ديسمبر 8, 2018 أهلا بك اخى الكريم فى المنتدى الفاضل -تفضل 2.xlsm 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها