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

كود الطباعة

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

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