السلام عليكم 
اخي الفاضل  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
 
واي ملاحظات او اضافات انا موجود 
موفق