كود ضبط الطباعة مع التصفية

[أناناس]

السلام عليكم ورحمة الله

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

المطلوب
إضافة فى أول الكود لجعل الطباعة الـ  scale أو الـ ZOOM تساوى 105
وإضافة فى أخر الكود لجعل طباعة النطاق المحدد فى صفحة واحدة طول وعرض
أو ضبط المحاذاة
جاولت تطبيقها بالجزء التالى فى الكود

 ActiveSheet.HPageBreaks(1).DragOff Direction:=xlDown, RegionIndex:=1

فلم تفلح معى

Prj 02 - نطاق طباعة.rar