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

[hicham2610]

السلام عليكم

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

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

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

 

stat_hicham v1.xlsm

[Jasmin]

أخي الكريم، مجموعة الخلايا اعملها 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 وتنسيق الوقت الحالي ضمن الاسم 

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

بالتوفيق

[hicham2610]

محمد صالح

جزاك الله خيرا وأحسن إليك

[أ / محمد صالح]

جميعا بإذن الله