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

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


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





عمل شهادات مدرسية للطلاب وتحويلها الى صيغة PDF

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



29-12-2017 04:27 مساء
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 284
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 5
قوة السمعة : 303
الاعجاب : 0
 offline 
السلام عليكم اساتذتي الكرام جزاكم الله كل خير على هذه المساعدات زيادة في ميزان حسناتكم 
واليكم طلبي به ملف مرفق ليستفيد منه الجميع ارجو ا ان تتقبلو طلبنا هذا بعين الاعتبار 
وننتظر الرد منكم يارب
وشكرا

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

 
 
 
  عمل شهادات مدرسية وتحويلها الى صيغة PDF.rar   تحميل rar مرات التحميل :(21)
الحجم :(174.708) KB





30-12-2017 08:37 مساء
مشاهدة مشاركة منفردة [1]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
قوة السمعة : 627
الاعجاب : 3
 offline 
look/images/icons/i1.gif عمل شهادات مدرسية للطلاب وتحويلها الى صيغة PDF
لعلها تكون البدايه
هذا كود لتصدير صفحات معينه الى البي دي اف
Sub CreatePDFFilesForSpecificSheets()
    Dim ws      As Worksheet
    Dim Fname   As String
    
    Application.ScreenUpdating = False
        For Each ws In Sheets(Array("Sheet1", "Sheet2"))
            On Error Resume Next
            Fname = ThisWorkbook.Path & "\" & ws.Range("A1").Value & " " & Replace(ws.Range("A2").Value, "/", "_") & ".pdf"
            ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
        Next ws
    Application.ScreenUpdating = True
    
    MsgBox "بفضل الله تم المطلوب ...", 64
End Sub




30-12-2017 08:40 مساء
مشاهدة مشاركة منفردة [2]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
قوة السمعة : 627
الاعجاب : 3
 offline 
look/images/icons/i1.gif عمل شهادات مدرسية للطلاب وتحويلها الى صيغة PDF
 
 
  تصدير صفحات معينه الى بي دي اف.rar   تحميل rar مرات التحميل :(7)
الحجم :(15.581) KB





30-12-2017 08:52 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8637
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25447
الاعجاب : 163
 offline 
look/images/icons/i1.gif عمل شهادات مدرسية للطلاب وتحويلها الى صيغة PDF
أخي الكريم مالك
قد لا يتسع وقتي للإطلاع على ملفك ولكن من فترة قدمت موضوع بهذا الخصوص .. اطلع على الملف التالي وقم بدراسة الأكواد بشكل جيد لتتمكن من الاستفادة من الأكواد يما يتناسب مع ملفك
 
 
  Export All Certificates To One PDF YasserKhalil ExcelLover.rar   تحميل rar مرات التحميل :(11)
الحجم :(33.253) KB





30-12-2017 08:55 مساء
مشاهدة مشاركة منفردة [4]
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 284
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 5
قوة السمعة : 303
الاعجاب : 0
 offline 
look/images/icons/i1.gif عمل شهادات مدرسية للطلاب وتحويلها الى صيغة PDF
شكرا لك اخي سأطالع على اكواد وان شاء الله سأصل الى الحل 
جزاك الله كل خير استاذي الفاضل 
وشكرا 




30-12-2017 09:13 مساء
مشاهدة مشاركة منفردة [5]
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 284
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 5
قوة السمعة : 303
الاعجاب : 0
 offline 
look/images/icons/i1.gif عمل شهادات مدرسية للطلاب وتحويلها الى صيغة PDF
وعليكم السلام اخي  شكرا على الرد 
 لكن من فضلك اعمل على ملف الذي نشرته انا به كل طلبي  حول عمل شهادات بصيغة PDF 
وعانا عامل على محرر اكواد فورم للعمل عليها 
جزاك الله كل خير 
انتظر الرد منك 
وشكرا 




30-12-2017 09:13 مساء
مشاهدة مشاركة منفردة [6]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
قوة السمعة : 627
الاعجاب : 3
 offline 
look/images/icons/i1.gif عمل شهادات مدرسية للطلاب وتحويلها الى صيغة PDF
Sub تصدير_بي_دي_اف()
    ChDir "D:\Ahmed"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\Ahmed\كشف الناجحين .pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
        True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Range("A5").Select
End Sub




30-12-2017 09:14 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8637
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25447
الاعجاب : 163
 offline 
look/images/icons/i1.gif عمل شهادات مدرسية للطلاب وتحويلها الى صيغة PDF
هل اطلعت على الملف الذي قدمته لك وقمت بدراسة الأكواد الموجودة فيه ...؟




30-12-2017 09:18 مساء
مشاهدة مشاركة منفردة [8]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
قوة السمعة : 627
الاعجاب : 3
 offline 
look/images/icons/i1.gif عمل شهادات مدرسية للطلاب وتحويلها الى صيغة PDF
مازلنا في تصدير ورقه الى البي دي اف
ونشكر استاذ ياسر على المشاركه التي اثق في انها ستكون مرجعا
 




30-12-2017 09:23 مساء
مشاهدة مشاركة منفردة [9]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
قوة السمعة : 627
الاعجاب : 3
 offline 
look/images/icons/i1.gif عمل شهادات مدرسية للطلاب وتحويلها الى صيغة PDF
Option Explicit

Sub ExportCertificatesToPDF()
    Dim lr          As Long
    Dim grade       As String
    Dim wb          As Workbook
    Dim i           As Long

    Application.ScreenUpdating = False
        lr = Sheets("Data").Cells(Rows.Count, 3).End(xlUp).Row - 4
        grade = Sheets("Data").Range("C1").Value    'Grade Title
        Set wb = Workbooks.Add(xlWBATWorksheet)
        i = 1
        
        With ThisWorkbook.Sheets("Certificates")
            Do Until i > lr
                .Range("O1").Value = i
                .Copy After:=wb.Worksheets(wb.Worksheets.Count)
                i = i + 3   '3 Number Of Certificates
            Loop
            .Range("O1").Value = 1
        End With
    
        Application.DisplayAlerts = False
            wb.Worksheets(1).Delete
        Application.DisplayAlerts = True
    
        wb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "شهادات " & grade & ".pdf"
        wb.Close SaveChanges:=False
    Application.ScreenUpdating = True

    MsgBox "Done ...", 64
End Sub

كود ولا اروعللتصدير الى البي دي اف ... للشهادات ويصلح لارقام الجلوس وغيره
بارك الله فيك استاذ ياسر




30-12-2017 09:24 مساء
مشاهدة مشاركة منفردة [10]
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 284
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 5
قوة السمعة : 303
الاعجاب : 0
 offline 
look/images/icons/i1.gif عمل شهادات مدرسية للطلاب وتحويلها الى صيغة PDF
نعم استاذ اطلعت على ملف وقمت بدراسة اكواد ممتازة جدا 
لكن استاذ حول طلبي انا عملت فورم على محرر اكواد لوضع كل هذا على فورم الطباعة وتحويل شيت صفحة شهادة الى PDF العمل مباشرة من فورم 
ولاحظت على ملفك عند ظغط على زر PDF وتحويلها تظهر نسخة من  شهادة على سطح مكتب لماذا 
انا اريدها تظهر للطباعة فقط وليس نسخة  على سطح المكتب
راجع طلبي  على ملف الذي ارفقته من فضلك استاذ لكي تفهم قصدي
وشكرا 
انتظر الرد منك حول طلبي 
 




30-12-2017 09:44 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8637
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25447
الاعجاب : 163
 offline 
look/images/icons/i1.gif عمل شهادات مدرسية للطلاب وتحويلها الى صيغة PDF
في هذه الحالة قم باستبدال الأسطر التي تقوم بعملية التصدير لملف PDF لتقوم بالطباعة مباشرة .. وإن كنت لا أستحب ذلك الأمر 
حيث أن تصدير الملف لبي دي إف يتيح لك مراجعة البيانات قبل عملية الطباعة 




30-12-2017 09:49 مساء
مشاهدة مشاركة منفردة [12]
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 284
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 5
قوة السمعة : 303
الاعجاب : 0
 offline 
look/images/icons/i1.gif عمل شهادات مدرسية للطلاب وتحويلها الى صيغة PDF
شكرا لك استاذ على الرد 
لكن من فضلك لو عملت هذا على ملفي به كل ما اطلبه حول ملف 
والله انا محتاج هذا الملف كثيرا لو عملته لي 
جزاك الله كل خير على كل ماتقدمه زيادة في ميزان حسناتك يارب
انتظر الرد منك حول طلبي  ان كان ممكن العمل عليه 

وشكرا 







الكلمات الدلالية
شهادات ، مدرسية ، للطلاب ، وتحويلها ، صيغة ،


 







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

الساعة الآن 10:38 صباحا

أعلن هنا
أعلن هنا
أعلن هنا