كود طباعة صفحات محددة

[ابو حمادة]

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

تحية طيبة لاصحاب المنتدي الكرام الاساتذه الافاضل

كل عام وانتم بخير

محتاج كود لطباعة الصفحات الموجوده في نطاق الخليه حسب الجدول الموضح

بمعني ان ارقام الصفحات الموجوده حسب الجدول الموضح قابله للتغيير

مرفق ملف لتوضيح المطلوب

وجزاكم الله عنا خيرا

طباعة.rar

 

[ابو علي و سدرة]

اخى الكريم

جرب الملف المرفق لعله ينفذ ما تطلب

 

طباعة.rar

[ابو حمادة]

في ١١‏/١٠‏/٢٠١٦ at 09:40, ابو علي و سدرة said:

اخى الكريم

جرب الملف المرفق لعله ينفذ ما تطلب

 

طباعة.rar

شكرا اخي الفاضل علي مجهودك ولكنى اريد ان يعمل الكود علي 4 خلايه لان المستند الاصلي كل صفحتان امام بعض بمعني صفحه رقم 1 قصاد منها صفحة رقم 6 وصفحة رقم 2 يوجد قصاد منها صفحة رقم 7 وهكذا والمستند يوجد به 10 صفحات 1-2-3-4-5 اسفل بعض و 6-7-8-9-10 قصاد منهم

عايز الكود يعمل من الخليه ( R1  ) الي الخليه ( T1  ) ومن الخليه ( R2   )  الي الخليه (  T2 )

مثل ماهو موجود في الملف المرفق الاساسي

 

[ابو عبدالبارى]

Sub abo_abary_from_to()
Dim k As Long
For i = 1 To 2
For k = Range("r" & i) To Range("t" & i)

Worksheets("sheet" & k).PrintOut

Next
Next
End Sub

الأخ الكريمابو حمادة

جرب المرفق التالى لعله يفى بالغرض ونسألكم الدعاء

 

 

 

abo_abary_طباعة.rar

[ابو حمادة]

8 ساعات مضت, ابو عبدالبارى said:

Sub abo_abary_from_to()
Dim k As Long
For i = 1 To 2
For k = Range("r" & i) To Range("t" & i)

Worksheets("sheet" & k).PrintOut

Next
Next
End Sub

الأخ الكريمابو حمادة

جرب المرفق التالى لعله يفى بالغرض ونسألكم الدعاء

 

 

 

abo_abary_طباعة.rar

شكراا ليك استاذي الغالي

عند استخدام هذا الكود بيتم طباعه جميع الصفحات وليس الصفحات المحدده