تصدير جميع الشهادات في ملف واحد بصيغة pdf

[Elsayeh]

السلام عليكم

عندي ملف موجود بالمرفقات به شهادات الطلاب بها كود لطباعة الشهادات وأريد التعديل عليه بحيث يصدر جميع الشهادات بي دي اف في ملف واحد وحفظه مرة واحدة

طباعة الشهادات.xlsm

[محمد يوسف ابو يوسف]

وعليكم السلام -تفضل الكود

Sub ØÈÇÚå_ÚÇãÉ()
                   Application.ScreenUpdating = False
                         ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "d:\" & Format(Now, "- dd-mm-yyyy-") & Nombre & " " & QualityxlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        Application.ScreenUpdating = True
    End Sub

 

 

[Elsayeh]

أخي الكريم @محمد يوسف ابو يوسف

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

[محمد يوسف ابو يوسف]

اخي يجب طرح مثال... مثلاً اريد طباعة (شيت الترم الأول) او (شهادات الترم الأول)  او  كلهم

من فضلك لا تبخل بشرح واضح وكافي ..فالوقت محدود لدى الجميع ..جزاك الله خيراً

 

[Elsayeh]

أخي @محمد يوسف ابو يوسف

في صفحة شعادات الترم الأول توجد زر مكتوب عليه طباعة الكل أريد عند الضغط عليه يحول جميع الشهادات بصيغة بي دي اف مرة واحدة وفي ملف واحد 

[محمد يوسف ابو يوسف]

اخي افهم من كلامك ان المراد تصديرة الي pdf  ... هو   ورقة واحدة شهادة الترم الاول فقط  ؟

من فضلك اذا كان فهمي غير صحيح يرجي توضيح اكثر

[Elsayeh]

أخي الكريم الشيت به ورقة واحدة إلا أن البيانات بداخلها تتغير تبعا لكود الطباعة وبالتالي اريد حفظ الورقة كل مرة ببيانات طالب جديد بدون أن يطلب مني تسمية الملف في كل مرة تتغير فيها بيانات الشهادة أرجو أن أكون وضحت الأمر

[محمد يوسف ابو يوسف]

هل هذا ماتقصد...اضغط زر طباعة الكل ..ثم اذهب الي برتيشن d تجد الملف محفوظ  بتاريخ اليوم

الملفطباعة الشهادات.xlsm

[Elsayeh]

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

[محمد يوسف ابو يوسف]

احي لما ذا لم ترسل الملف الاساسي  ..... ليتم العمل عليه  ؟

  الوقت محدود لدا الجميع  ...ممكن اسماء الشيتات المراد تصديرهم

[Elsayeh]

اليك الملف الأصلي  ...شهادات الترم الأول

شيت الترم الأول.rar

[محمد يوسف ابو يوسف]

السلام عليكم -تفضل طلبك ...الملف ..والكود المستخدم

 شيت الترم الأول.rar

Sub pdf()
                                     
    Application.ScreenUpdating = False
    Sheets("كشوف مناداة الترم الأول").Select
    Cells.Select
    Sheets("كشف النتيجة الترم الأول").Select
    Cells.Select
    Sheets("درجات ملف الإنجاز والنشاط").Select
    Cells.Select
    Sheets("نتيجة الفصول ").Select
    Cells.Select
    Sheets("بيان درجات طالب").Select
    Cells.Select
    Sheets(Array("كشوف مناداة الترم الأول", "كشف النتيجة الترم الأول", "درجات ملف الإنجاز والنشاط", "نتيجة الفصول ", "بيان درجات طالب")).Select
         Selection.Copy
          ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "d:\" & Format(Now, "- dd-mm-yyyy-") & Nombre & " " & QualityxlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
                          Sheets(Array("كشوف مناداة الترم الأول", "كشف النتيجة الترم الأول", "درجات ملف الإنجاز والنشاط", "نتيجة الفصول ", "بيان درجات طالب")).Select
            Range("A1").Select
           Sheets("كشوف مناداة الترم الأول").Select
        Application.CutCopyMode = False
       Application.ScreenUpdating = True
           End Sub

 

[Elsayeh]

أخي @محمد يوسف ابو يوسف

واضح أنني لم استطع شرح ما اريد بشكل جيد

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

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

وانا لا اريد ذلك أريده أن يطع كل الاوراق في ملف واحد فقط ( المطلوب ان يحتوي هذا الملف على الشهادات فقط ولا اريد شيئا اخر )

[محمد يوسف ابو يوسف]

اخي .ان لم يكن هذا طلبك  ..فمن فضلك ..وضح طلبك بدقة أكثر حتي يتم فهم طلبك من باقي الاساتذة .. ويتم عمل اللازم ..تفضل الملف ..والكود بعد التعديل

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

طباعة الشهادات.xlsm

Sub tepa3a_shahadat_ELKOL()
 If Range("J7") > 0 Then
    Range("H3").FormulaR1C1 = "2"
                       Calculate
                         ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "d:\" & Format(Now, "- dd-mm-yyyy-") & Nombre & " " & QualityxlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
                      Do While Not Range("H3").Value > Range("J7").Value
    Range("H3") = Range("H3") + 2
    Calculate
        Loop
    Else
    MsgBox "عفواً المدى الذي تريد طباعته لا توجد به أسماء ... برجاء كتابة أسماء الطلاب وبياناتهم أولاً", vbOKOnly + vbMsgBoxRight + vbMsgBoxRtlReading + vbCritical, "كنترولست"
    End If
Range("A1").Select
End Sub

 

[أبو إيمان]

اقتراح بعد إذن الاساتذة أن تقوم باستخدام الكود الذي يحفظ شهادتين مع عمل حلقة تكرارية بحيث يحفظ لك 5 ملفات  كل ملف يحتوي شهادتين وتقوم بدمج ال5 ملفات بعد ذلك ليصبح ملف واح به 10 شهادات بصيغة PDF

[أبوعيد]

تفضل جرب المرفق

طباعة الشهادات1.xlsm