طلب تحسين كود طباعة

[M.NHAKAMI]

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

' بداية كود الطباعة
If Sheets("print").Range("a15").Value = 1 Then
Dim ID As String
Sheets("الأسماء").Visible = False
Sheets("print").Visible = True
ID = Sheets("print").Range("E1").Text & " " & Sheets("print").Range("B7").Text & " " & Sheets("print").Range("B8").Text & " " & Sheets("print").Range("B9").Text
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\m2020\" + ID + ".Pdf", _
IgnorePrintAreas:=False, _
Openafterpublish:=False
 Else
MsgBox "لا توجد بيانات لطباعتها"
 End If
 Application.Visible = False
End Sub

الكود في مشكله انا جاعل المسار مجلد M2020 ينشئه المستخدم في C  وبالتعليمات كاتب للمستخدم اذا اراد الطباعه بنشئ هذا المجلد اولا  المشكله اذا تم الضغط ولم ينشئ المجلد الاكسل يحدث خطأ ويغلق البرنامج اتمنى لو فيه طريقه تحسن الكود بانه اذا لم يجد المسار مايخرج من البرنامج بل ينبه المستخدم بان المسار غير موجود او تكون الطباعه في سطح المكتب بشرط انه يكون متوافق مع اي جهاز حيث ان مسار سءح المكتب يختلف من جهاز لجهاز

 

الطلب الثاني كود نسخ مبين داخل بالبرنامج

 

تصحيح اكواد.xlsm

[محي الدين ابو البشر]

السلام عليكم

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Environ("USERPROFILE") & "\Desktop\" & ID & ".Pdf", _
IgnorePrintAreas:=False, _
Openafterpublish:=False

 

[M.NHAKAMI]

شكرا لك الكود يعمل بشكل جيد جدا 

[محي الدين ابو البشر]

الحمد لله اني استطعت المساعدة

وشكراً  لك