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

[أناناس]

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

أحبابى أبحث عن كود لاعداد نطاق طباعة لشيت إكسيل 

بحيث يكون الطباعة لورقتين فى نفس الشيت ( نطاقين طباعة فى نفس صفحة الاكسيل )

الورقة الاولى ( PAGE1 ) من الخلية A3 الى الخلية F20 ويكون Scale أو الزوم 150 %

والورقة الثانية ( PAGE2 ) من الخلية H25 الى الخلية O75 ويكون Scale أو الزوم 70 %

هل من الممكن توفير هذا الكود بهذه الطريقة 

وبارك الله فيكم 

 

[ياسر خليل أبو البراء]

أخي الكريم ارفق ملفك لتتضح المسألة أكثر ويساهم إخوانك بالحل

[أناناس]

تمام يا اخ ياسر 

تم إرفاق ملف يوضح المطلوب 

يا حبذا لو تم إدراج وسطنة الصفحة من داخل الكود 

أقصد بوسطنة الصفحة ما أقوم به من تبويب ( print preview ثم page setup ثم margins ثم التحديد على كل من horizontally وتحديد vertically )

وشكرا جزيلا

نطاق طباعة.rar

[ياسر خليل أبو البراء]

أخي الكريم أناناس

هل المقصود بـ Scale .. الخيار الموجود في إعداد الصفحة page Setup في التبويب المسمىPage

باسم Scaling وتحته الخيار Adjust to ثم النسبة المئوية المطلوبة من الحجم الأصلي

سؤال آخر: هل الخلايا ف النطاقين مدمجة كما في المرفق أم أن الدمج للتوضيح فقط لأنه يوجد مشكلة عند طباعة خلية واحدة فقط؟

 

[أناناس]

أستاذنا الغالى ياسر خليل

بارك الله فيك

خيار SCALE موجود بالتبويب PAGE LAYOUT وهو لتكبير طباعة النطاق بدون تكبير الخلايا :(

وهو نسب مئوية فى الاوفيس عندى 2007

 الخلايا ف النطاقين مدمجة للتوضيح فقط

وبارك الله فيك 

[أناناس]

للرفع

والتذكير

[ياسر خليل أبو البراء]

جرب هذا الكود عله يفي بالغرض

Sub PrintTwoPagesWithDifferentScale()
    With ActiveSheet
        .PageSetup.PrintArea = "$A$3:$F$20"
        .PageSetup.Zoom = 150
        .PrintOut IgnorePrintAreas:=False

        .PageSetup.PrintArea = "$H$25:$O$75"
        .PageSetup.Zoom = 70
        .PrintOut IgnorePrintAreas:=False
    End With
End Sub

 

أو جرب الكود التالي وأعملنا بالكود الذي سيعمل معك بشكل أفضل

Sub PrintTwoPagesWithDifferentScale()
    With ActiveSheet
        .PageSetup.PrintArea = "$A$3:$F$20"
        .PageSetup.Zoom = 150
        .PrintOut From:=1, To:=1, Copies:=1

        .PageSetup.PrintArea = "$H$25:$O$75"
        .PageSetup.Zoom = 70
        .PrintOut From:=1, To:=1, Copies:=1

        .Range("A1").Select
        .PageSetup.Zoom = 100
    End With
End Sub