مطلوب تعديل فى طريقة الطباعة

[يوسف عطا]

عند طبع الشهادات تقوم الطابعة بطبع 3 شهادات فى الشيت

قمت بتعديل الكود ليطبع شهادة واحدة فقط وقام بالفعل بطباعة الشهادة المحددة

ولكن

قامت الطابعة بطبع الشهادة المذكورة فى وسط الصفحة

رغم أن الشهادة المحدد طباعتها كانت الشهادة العلوية

أى المفروض أن تطبع فى الثلث العلوى من الورقة

ما الحل لكى تقوم الطابعة بطبع الشهادة المحددة فى الجزء العلوى من الصفحة

[جمال عبد السميع]

أستاذي الحل ممكن يكون بسيط جدا كالمرفق الموجود حيث تم تصميم الكود لطباعة مساحة 3 شهادات معا ثم تم حذف الشهادتين السفليين فكانت النتيجة أللي حضرتك عايزها

طباعة.rar

[يوسف عطا]

أخى الغالى محمود بك

أشكرك لتفاعلك مع الموضوع ومحاولة حل المشكلة

ولكن

هذا الحل لا يصلح لأنى لا أريد مسح أو حذف الشهادتين الأخريتين

بل أريد أن يتم طباعة البرنت إيريا المحددة للشهادة العلوية فقط ولكن أريدها أن تكون فى الجزء العلوى من ورقة الطباعة

وقد إستخدمت الكود التالى وكانت الشهادة تطبع فى وسط الورقة

طبع_الأولى()Sub

    Range("B8:S22").Select

    Selection.PrintOut Copies:=1, Collate:=True

    Range("k3").Select

End Sub

علماً بأن كل شهادة تتكون من 14 سطر وشيت ال3 شهادات يبدأ من الخلية B8 إلى الخلية S50

[جمال عبد السميع]

لقد جربت الكود وهو يعمل 10/10

كود طباعة.rar

[يوسف عطا]

أخى الغالى محمود بك

اشكرك لأنك نورت مخى بفكرتك وبعد تعديل بسيط فيها تم إنجاز المطلوب

والكود الذى إستخدمته وقام بالمهمة مظبوط هو كالتالى

()طبع_الأولىSub

    Range("B8:S50").Select

    ActiveSheet.PageSetup.PrintArea = "$B$8:$S$22"

    Activewindow.SelectedSheets.PrintPreview

    Activewindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    Range("K3").Select

End Sub

[يوسف عطا]

فعلاً الكود يعمل نظرياً على الطابعة الوهمية

وجارى التجربة غداً بالمدرسة على الطابعة الحقيقية

الف شكر لمعاليكم

[جمال عبد السميع]

الحمد لله أستاذي وربنا يحقق مطالبك دائما