ابو حمادة قام بنشر مارس 1, 2018 مشاركة قام بنشر مارس 1, 2018 رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر مارس 1, 2018 مشاركة قام بنشر مارس 1, 2018 السلام عليكم ورحمة الله استخدم هذا الكود 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 1 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر مارس 1, 2018 مشاركة قام بنشر مارس 1, 2018 أحسنت بارك الله فيك وغفر لك 1 رابط هذا التعليق شارك More sharing options...
ميدو63 قام بنشر مارس 2, 2018 مشاركة قام بنشر مارس 2, 2018 الزملاء ممكن وضع جدول يمكن التعلم منه لاستخدام هذا الكود شكرا رابط هذا التعليق شارك More sharing options...
ابو حمادة قام بنشر مارس 2, 2018 الكاتب مشاركة قام بنشر مارس 2, 2018 في ١/٣/٢٠١٨ 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 شكرا استاذي الفاضل علي هذا العمل جزك الله خيرا تحياتى اليك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.