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

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


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

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

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