السلام عليكم
اخي الفاضل avogadrow
جمل الله حالك عطيتنى المراد نسألك الدعاء وفقك الله
وبالنسبة للطباعة اذا تريد يكون استعراض دون الطباعة
Sheets("Sheet1").Range(RN).PrintOut Copies:=1, Preview:=False, Collate:=True
استبدل من هذا السطر كلمة Preview:=False, الى هكذا Preview:=True,
ليصير هكذا
Sheets("Sheet1").Range(RN).PrintOut Copies:=1, Preview:=True, Collate:=True
واي ملاحظات او اضافات انا موجود
موفق