M.NHAKAMI قام بنشر نوفمبر 20, 2019 مشاركة قام بنشر نوفمبر 20, 2019 السلام عليكم عندي الكود التالي للطباعه ' بداية كود الطباعة 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 رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر نوفمبر 23, 2019 مشاركة قام بنشر نوفمبر 23, 2019 السلام عليكم ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=Environ("USERPROFILE") & "\Desktop\" & ID & ".Pdf", _ IgnorePrintAreas:=False, _ Openafterpublish:=False 1 رابط هذا التعليق شارك More sharing options...
M.NHAKAMI قام بنشر نوفمبر 23, 2019 الكاتب مشاركة قام بنشر نوفمبر 23, 2019 شكرا لك الكود يعمل بشكل جيد جدا رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر نوفمبر 23, 2019 مشاركة قام بنشر نوفمبر 23, 2019 الحمد لله اني استطعت المساعدة وشكراً لك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.