جرب هذا
الأكواد المستخدمة
توضع هذه الأكواد في بداية الكود
Application.ScreenUpdating = False
Application.Calculation = xlManual
Application.EnableEvents = False
وتوضع هذه الأكواد قبل نهاية الكود قبل end sub
Application.Calculation = xlAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
برنامج التنسيق تعديل14.xlsm
عليك السلام ورحمة الله وبركاته
يجب رفعه ملف كنموذج للمطلوب وشرح المطلوب فعله وكتابة النتائج المتوقعه حتى يتسنى للأعضاء إيجاد حل فلا يمكن العمل على التخمين
جرب هذا الكود بشرط تحديد نطاق ( خلية أو عدة خلايا )
ومع الأسف لا يمكن معاينة قبل الطباعة عند طباعة التحديد
Sub PrintSelection()
Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub
اختر تبويب المطور
إذا لم يكن ظاهرًا اذهب إلى قائمة ملف واختر خيارات ثم اختر تخصيص الشريط ثم قم بتحديد المطور ( إظهار علامة صح ) ثم اضغط موافق
قم بتسجيل ماكرو
بعد ذلك قم بتحديد الجزء المراد طباعته
من قائمة ملف اختر طباعة يظهر صندوق اختر منه إعدادات ومنها اختر طباعة النحديد ثم اضغط على رمز الطباعة
بعد ذلك قم بإيقاف تسجيل الماكرو