السلام عليكم اخوانى الاعزاء --صباح الخير على الجميع--مشكلة فى كود الطباعة

[الفارس محمد رجب]

السلام عليكم ورحمة الله وبركاته --صباح الخير على الجميع --استخدم هذا الكود فى الطباعة

Sub Picture32_Click()
Dim a
Dim are
Set are = Selection
Selection.Activate
a = MsgBox("هل تريد الطباعة", vbYesNo + vbQuestion, "معلومات")
If a = vbYes Then
are.PrintPreview
are = ""
a = ""
End If
End Sub

وعند استخدامه يتم الطباعة ولكن يحدث احيانا هذا الخطاء الموجود فى الصورة المرفقة  ولا اعرف اين المشكلة 

تم تعديل سبتمبر 23, 2023 بواسطه الفارس محمد رجب

[احمد عبدالحليم]

الكود يعتمد على ما تقوم بتحديده ليطبعه  وعند تحديد اى شيء غير خلايا الاكسل يحدث هذا الخطا على ما اعتقد 

[عبدالفتاح في بي اكسيل]

@الفارس محمد رجب

عندما تتحدث عن خطأ يجب ان تظهر  لنا في  أي  سطر  والا الصورة  لا معنى لها !

[الفارس محمد رجب]

ا / عبدالفتاح في بي اكسيل عندما اضغط على زرار  debug يتم اغلاق الملف

[عبدالفتاح في بي اكسيل]

اقتباس

ا / عبدالفتاح في بي اكسيل عندما اضغط على زرار  debug يتم اغلاق الملف

 

اعتقد انك مخطئ  ، هذا  يحدث عند الضغط على زر END