اخي الحبيب
شوف ياعم
هذا الكود يطبع المنطقة المطلوبة مباشرة دون تغيير ناحية الطباعة
يعني
تحدد بالماوس المكان الي تبغة تطبعة
وبعدين تاخذ طباعة التحديد
نفس الفكرة في هذا الكود
Sub Prnt_Slct()
ER = WorksheetFunction.CountA(Range("A:A"))
RN = "A2:A" & ER
Sheets("sheet3").Range(RN).PrintOut Copies:=1, Preview:=True, Collate:=True
End Sub
مع التحية