طباعة محددة حسب صفوف محددة ومكررة لعدة شهادات

[مصطفى محمود مصطفى]

السلام عليكم ..

هل يمكن تحديد الطباعة بالكود بان يطبع كل شهادتين مع بعض وبالتكرار لنفس المدى

اول شهادتين منB13:L36

والاخرى من B25:L48 

وهكذالبقيةالشهادات يعني المدى متساوي لجميع الشهادات

ويقف عنداخر شهادةبهابيانات لان الشهاداتتختلف في كل مرة مرةتصل 400 ومرة تصل الى 100 اول اقل من ذلك

لان بالمعاينة ثم الطباعة تختلف وتحدث مشاكل.

جزاكم الله خيرا ووفقكم لكل خير

طباعة محددة.rar

تم تعديل ديسمبر 23, 2017 بواسطه مصطفى محمود مصطفى

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

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

ضع فى الخلية "P1" ترتيب اول شهادة تريد طبعها

   و الخلية "P2" آخر شهادة تريد طبعها

 ثم انسخ هذا الكود وضعه فى موديول وخصص له زر

و سيقوم الكود بتعديل القيم تلقائيا

Sub PrintArea()
Dim i As Integer, j As Integer, x As Integer, y As Integer
x = Sheet3.Range("P1").Value
y = Sheet3.Range("P2").Value

i = (x * 12) + 1
j = (y + 1) * 12
Sheet3.PageSetup.PrintArea = Sheet3.Range("B" & i & ":L" & j).Address
Sheet3.PrintPreview
Sheet3.PrintOut from:=1, to:=2, Copy:=1
x = x + 2
y = y + 2
Sheet3.Range("P1").Value = x
Sheet3.Range("P2").Value = y
End Sub

 

تم تعديل ديسمبر 23, 2017 بواسطه زيزو العجوز

[مصطفى محمود مصطفى]

السلام عليكم

جزاكم الله خيرا اخي استاذ زيزو

يوجد خطأ عند التنفيذ 

ارجو معالجته

وفقكم الله ورعاكم

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

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

عذرا اخى الكريم على التأخير

استبدل هذه العبارة

Copy:=1

بهذه العبارة

Copies:=1

 

[مصطفى محمود مصطفى]

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

جزاكم الله خيرا اخي الاستاذ زيزو 

ممتاز معاينة ثم الطباعة هو المطلوب تمام

لكم وافر احترامي