اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طلب كود حفظ وثيقة بصيغة PDF وشكرا


hicham2610
إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

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

السلام عليكم

من فضلكم ، كيف أبرمج زر الطبع لكي يطبع المجال من B3 إلى p مع آخر سطر به بيانات بصيغة PDF مع تسمية الملف ب stat_hicham مع محتوى الخلية O8 إن أمكن وذلك لكون قد يتم طبع أكثر من وثيقة في اليوم

وحبذا لو تخرج رسالة msg box للاخبار بتم حفظ الملف pdf في نفس مسار البرنامج باسم مع ذكر الاسم، (بدأت الكود ولم أنجح في إتمامه)

وجزاكم الله خيرا

 

stat_hicham v1.xlsm

رابط هذا التعليق
شارك

أخي الكريم، مجموعة الخلايا اعملها select وأطلق عليها اسم NameRange مثلاً range1

واستعمل الآتي على الزر:

ممكن تشوف الملف المرفق أيضا فقط لطباعة ورقة كاملة

Sub printOutRange()
Range ("range1").PrintOut
End Sub

 

Print-invoice.xls

رابط هذا التعليق
شارك

  • أفضل إجابة

يمكنك استعمال هذا الكود

Sub savePDF()
ActiveSheet.PageSetup.PrintArea = "B3:P" & Range("B" & Rows.Count).End(xlUp).Row
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Range("g7").Value & "_" & Format(Now(), "yyyy-mm-dd_hh-nn-ss") & ".pdf"
MsgBox "Done by mr-mas.com"
End Sub

لاحظ مسار هذا المصنف thisworkbook.path وتنسيق الوقت الحالي ضمن الاسم 

واستعمال الشرطة - والشرطة السفلية _ في الاسم بدلا من / 

بالتوفيق

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information