طلب تعديل كود طباعة الملف مرفق

[يوسف عطا]

فى الملف المرفق 3 أكواد لطباعة الشهادات

كل ورقة بها 3 شهادات

الكود الأول لطباعة جميع الشهادات ويعمل جيداً

الكود الثانى لطباعة الـ 3 شهادات متتالية التى أمامنا على المونيتور والمحددة أول شهادة فيهم بالرقم المسلسل فى الخلية K3 ويعمل جيداً

الكود التالت وهو الذى يحتاج تعديل يطبع مدى أو نطاق معين من الصفحات محدد بخليتين P2 و Q2

وهو يطبع الشهادات ليس حسب مسلسلها ولكن حسب رقم صفحاتها وكما قلت الصفحة بها 3 شهادات ولذلك مثلاً فعندما أدخل فيه المدى من 11 إلى 15 فهو يطبع الشهادات من مسلسل 31 إلى 45

ولذلك فلكى أطبع مدى معين من الشهادات لابد أن أحسب أرقام صفحات هذه الشهادات وهذا أمر مرهق خاصة فى حالة طباعة العديد من الشهادات

المطلوب

تعديل الكود الثالث المسمى طبع من _ إلى

ليطبع مدى محدد بمسلسل الشهادات وليس برقم الصفحات

أى عندما أضع فى الخليتان P2 و Q2 أرقام 31 و 45

يطبع الشهادات من 31 إلى 45

أى يطبع الـ 5 صفحات من 11 إلى 15

أتعشم أن يكون طلبى واضحاً

شهادات ناجحات 2 د 2.rar

تم تعديل يوليو 21, 2012 بواسطه يوسف عطا

[رجب جاويش]

أخى الفاضل / يوسف عطا

استبدل الكود المراد التعديل علية بالكود التالى

Sub PrintFrom_To_()

Dim I As Integer

For I = Range("p2") To Range("Q2") Step 3

If I <= Range("Q2") Then

Range("K3") = I

Activewindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True

End If

Next I

Range("K3").Select

End Sub

وان شاء الله يفى بالمطلوب

[يوسف عطا]

الله ينور عليك يا استاذ رجب

هذا هو المطلوب بالفعل