[الاستاذ خليل]

اخي احمد يوجد خيار ان تتضمن الخطوط مع الباو بوينت استعملها افضل من ان ترفق الخط

عمل ممتاز -لم اراجع البرمجة - ينقصه الطباعة و الشهادة لقد وضعت الكود الطباعة استعمله

كود الطباعة

With Application.ActivePresentation
    .PrintOptions.PrintHiddenSlides = True
    .PrintOut From:=4, To:=4, Copies:=1, Collate:=msoFalse
End With

الشرح
حيث From:=4, To:=4, Copies:=1 تعني من صفحة 4لاالى صفحة اربعة نسخة واحدة