طباعه عدد الصفحات الذيلا يتم تحديدها داخل خليه

[ابو حمادة]

[ابراهيم الحداد]

السلام عليكم ورحمة الله

استخدم هذا الكود

Sub PrintPages()
Dim i As Integer, j As Integer
i = Range("D3").Value
j = Range("E3").Value
If i < 1 Or j < 1 Then Exit Sub
ActiveSheet.PrintOut from:=i, to:=j, Copies:=1
End Sub

 

[Ali Mohamed Ali]

أحسنت بارك الله فيك وغفر لك

[ميدو63]

الزملاء

ممكن وضع جدول يمكن التعلم منه لاستخدام هذا الكود

 

شكرا

[ابو حمادة]

في ١‏/٣‏/٢٠١٨ at 22:06, زيزو العجوز said:

السلام عليكم ورحمة الله

استخدم هذا الكود

Sub PrintPages()
Dim i As Integer, j As Integer
i = Range("D3").Value
j = Range("E3").Value
If i < 1 Or j < 1 Then Exit Sub
ActiveSheet.PrintOut from:=i, to:=j, Copies:=1
End Sub

 

شكرا استاذي الفاضل علي هذا العمل 

جزك الله خيرا

تحياتى اليك