كيفة عمل زر طباعة مع chek box

[م موسى]

هل من الممكن عمل طباعة عن طريق check box

بمعنى طباعة الأوراق التي قمت بإختيارها من check box

مع خالص تحياتي :fff:

تم تعديل يونيو 11, 2005 بواسطه م موسى

[م موسى]

يمكن توضيح طلبي من خلال هذا الملف وبارك الله فيكم

اضغط هنا لتحميل الملف

[الفدعاني]

الملف بعد لتعديل

http://www.officena.net/ib/index.php?showtopic=8464

[م موسى]

بارك الله فيك على هذه المشاركة الممتازة وجزاكم الله خيراً وزادكم علماً وكرماً

[م موسى]

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

[if Range("h14") = True Then

Range("g12").Value = 1

ActiveWindow.SelectedSheets.PrintOut from:=1, to:=1, Copies:=1, Collate:=True

End If

تم تعديل يونيو 13, 2005 بواسطه م موسى

[علي السحيب]

السلام عليكم،

عفواً للمداخلة .. ولكني قد قمت بتجربة كود الطباعة وهو قمة الإبداع من الأخ الفدعاني .. وهو يقوم بطباعة شهادة منفردة لكل طالب من الطلاب الذين تم وضع علامة صح بجانب أسمائهم.

أدعوك أخي م موسى لتجربة الكود مرةً أخرى.

شكراً،

[م موسى]

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

[م موسى]

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

تم تعديل يونيو 14, 2005 بواسطه م موسى

[علي السحيب]

لقد قمت بوضع بجانب الأسم الأول (أحمد) .. بعد ضغط زر ماكرو الطباعة خرجت لي صفحة واحدة فقط ..

شكراً،

[الفدعاني]

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

اخي موسى

هذا الكود الصحيح

If Range("h14") = True Then
    Range("g12").Value = 1
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    End If

ويتم الطباعة حسب خانة الاختيار

شكرا اخ علي حسين