السلام عليكم،
الكود الخاص بالطباعة هو التالي .. ويمكنك تسجيله بالماكرو:
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
بالنسبة للأكواد الخاصة بالفرز والإضافة والحفظ فقد تم تسجيلها بالماكرو وإجراء بعض الإضافات عليها .. أما بالنسبة للأكواد الخاصة بالبحث و الخروج فقد تمت كتابتهما يدوياً.