إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته
هذا الكود نفذته كما هو لطباعة نطاق معين ( صفحة ) عدد النسخ 4
ولكن طبع نسخة واحدة
فما الحل ؟
() Sub PrintOut
Dim RNG As Range
Set RNG = Range("J1:R49")
RNG.PrintOut Copies:=4, collate:=True
End Sub