أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
محمدعبدالسلام لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة طلب مساعدة اريد في كل 4 من شهر يتم نسح الاسم من عمود الى عمود اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تعديل كود للطباعة

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


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


subject icon تمت الإجابة تعديل كود للطباعة
11-05-2021 05:04 مساء
أبو عبد الرحمن
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-12-2017
رقم العضوية : 2596
المشاركات : 66
الجنس : ذكر
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 114
 offline 

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

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  طباعة استمارة وشهادة.zip   تحميل zip مرات التحميل :(26)
الحجم :(231.584) KB



أفضل إجابة مقدمة من hassona229 وهي:
اخى الكريم
اقتبـاس ،،
لان الكود الحالي لا يطبع الا صفحة واحدة اما الاستمارات او الشهادات فان اخترت الشهادات تطبع 10 و11 في صفحة اما الصفحة التالية فيتم اعادة 11 مرة اخرى 

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

Sub PrintAll()
Dim SH As Worksheet
Set SH = ActiveSheet

    If SH.Name = "شهادة" Then
        For I = SH.Range("q1") To SH.Range("s1") Step 2
            SH.Range("u1") = I
            If I <= SH.Range("u1") Then
                SH.PrintOut , Copies:=1, preview:=False, Collate:=True
            End If
        Next I
    ElseIf SH.Name = "استمارة" Then
            For I = SH.Range("q1") To SH.Range("s1") Step 1
            SH.Range("u1") = I
            If I <= SH.Range("u1") Then
                SH.PrintOut , Copies:=1, preview:=False, Collate:=True
            End If
        Next I
    End If
End Sub



 
عرض الإجابة




17-05-2021 08:13 مساء
مشاهدة مشاركة منفردة [1]
أبوعيد
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 09-09-2017
رقم العضوية : 439
المشاركات : 58
الدولة : اليمن
الجنس : ذكر
تاريخ الميلاد : 19-6-1971
الدعوات : 1
يتابعهم : 1
يتابعونه : 2
قوة السمعة : 332
عدد الإجابات: 7
 offline 
look/images/icons/i1.gif تعديل كود للطباعة
هل تقصد
انك تريد الكود يطبع الوجه ثم يقلب الشهادة ويطبع الظهر. ؟

18-05-2021 10:57 صباحا
مشاهدة مشاركة منفردة [2]
أبو عبد الرحمن
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-12-2017
رقم العضوية : 2596
المشاركات : 66
الجنس : ذكر
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 114
 offline 
look/images/icons/i1.gif تعديل كود للطباعة
ما اريده استاذي الفاضل ان يطبع الكود الاستمارة والشهادة
لان الكود الحالي اما يطبع الاستمارة وخطا في طباعة الشهادة
او يطبع الشهادة وخطا في طباعة الاستمارة
 

20-05-2021 11:09 صباحا
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif تعديل كود للطباعة
وعليكم السلام ورحمه الله وبركاته

تفضل هذا الكود لعله يكون المطلوب

Sub printall()
Dim SH As Worksheet
    For Each SH In ThisWorkbook.Worksheets(Array("شهادة", "استمارة"))
        For I = SH.Range("q1") To SH.Range("s1") Step 2
            SH.Range("u1") = I
            If I <= SH.Range("u1") Then
                SH.PrintOut , Copies:=1, preview:=False, Collate:=True
            End If
        Next I
    Next SH
End Sub


20-05-2021 10:18 مساء
مشاهدة مشاركة منفردة [4]
أبو عبد الرحمن
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-12-2017
رقم العضوية : 2596
المشاركات : 66
الجنس : ذكر
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 114
 offline 
look/images/icons/i1.gif تعديل كود للطباعة
جزاك الله خيرا استاذنا الفاضل وشكرا للمساهمة
في الكود الذي تفضلت به يتم طباعة الشهادات والاستمارات معا 
فان ضغطت على طباعة الشهادات يتم طباعة الاستمارات معها دون ان اطلب ذلك والعكس 
لكن ما اريده من التعديل في الاكواد ان تكون الطباعة حسب رغبتي اما طباعة الشهادات او الاستمارات سواء كل الشهادات او الاستمارات او تحديد عدد محدد منهما 
ارجو ان اكون قد اوضحت قصدي 

22-05-2021 01:05 مساء
مشاهدة مشاركة منفردة [5]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif تعديل كود للطباعة
تفضل اخى الكريم

Sub printall()
Dim SH As Worksheet
Set SH = ActiveSheet
        For I = SH.Range("q1") To SH.Range("s1") Step 2
            SH.Range("u1") = I
            If I <= SH.Range("u1") Then
                SH.PrintOut , Copies:=1, preview:=False, Collate:=True
            End If
        Next I
End Sub


27-05-2021 03:00 صباحا
مشاهدة مشاركة منفردة [6]
أبو عبد الرحمن
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-12-2017
رقم العضوية : 2596
المشاركات : 66
الجنس : ذكر
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 114
 offline 
look/images/icons/i1.gif تعديل كود للطباعة
جزيل الشكر للاستاذ الفضل @hassona229
لا زلت لم اوضح قصدي
ما اريده عند الذهاب لصفحة الشهادات يتم طباعة صفحة يكون فيهاعدد شهادتين كما هو موضح فالشيت 
فمثلا اخترت من الشهادات رقم 10 الى 20 يتم طباعة 10و11 في صفحة و12و13في صفحة بعدها وهكذا
اما اذا ذهبت لصفحة الاستمارات واردت ايضا ان اطبع الاستمارات من 10 الى 20 
تكون كل استمارة في صفحة 10 في صفحة وبعدها 11 في صفحة وهكذا
لان الكود الحالي لا يطبع الا صفحة واحدة اما الاستمارات او الشهادات فان اخترت الشهادات تطبع 10 و11 في صفحة اما الصفحة التالية فيتم اعادة 11 مرة اخرى 
 


الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
تعديل ، للطباعة ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 04:20 صباحا