تعديل على كود طباعة شهادات طلاب

[بلانك]

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

[محمد هشام.]

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

يمكنك تعديله بما يناسبك 

Option Explicit
Sub sav_PDFall()
    ActiveSheet.Unprotect Password:="saaa"
    Dim i As Integer
    Dim folderPath As String
    folderPath = ThisWorkbook.Path & "\الشهادات"
    
    If Dir(folderPath, vbDirectory) = "" Then
        MkDir folderPath
    End If

    For i = 1 To Range("u1") Step 3
        Range("h1") = i
        If i <= Range("u1") Then
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                Filename:=folderPath & "\" & Range("H1").Value & ".pdf", Quality:=xlQualityMinimum, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        End If
    Next i
    ActiveSheet.Protect Password:="saaa"
End Sub

 

[بلانك]

ذادك الله علما ونفعا للاخرين استاذي محمد بك هشام

[بلانك]

عفوا ورجاء من الاستاذ/ محمد هشام عند تصدير الشهادات لاتظهر الدوائر الحمراء على المواد دون المستوى لاحظ هذة الصور

2025-01-29_201604.bmp ى.bmp

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

[بلانك]

 تم حل مشكلة الدوائر الحمراء ولكن اريد دمج جميع الشهادات في ملف pdf واحد. وليس كل 3 شهادت في ملف بحيث ان(  90 )  طالب سوف يكون هناك 30 ملف وشكرا مقدما

[محمد هشام.]

هدا ليس لدي أي علاقة بطلبك السابق (وضع الشهادات في فولدر بجوار الملف الاصلي)

يرجى فتح موضوع جديد  بطلبك مع إرفاق ملف للإشتغال عليه