دمج مجموعة صور في ملف Pdf

[العنزي العنزي]

السلام عليكم اصدقائي الغالين ورحمة الله وبركاته 

طلبي هو دمج مجموعة صور في ملف Pdf بحيث عندي مجلد اسمه A1 فيه مجموعة صور اريد دمجها في ملف Pdf وخزنها في مجلد ثاني اسمه A2 وهذا برنامج عينة بسيط 

لغرض العمل عليه 

مع فائق الشكر والتقدير لكم جميعا 

 

frmPDF.rar

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

[Foksh]

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

كفكرة ، قم بإنشاء تقرير يجلب الصور من مساراتها ، ثم قم بتصدير التقرير إلى ملف PDF .

أعتقد هذا أنسب حل لك 😉 .

أتابع من الجوال 

[العنزي العنزي]

السلام عليكم استاذي الفاضل Foksh ورحمة الله وبركاته 

جزاك الله خيرا وشكرا جزيلا لحضرتك يا طيب ممنون من حضرتك 

استاذي الفاضل ممكن ان تجعل كل صورة في صفحة ليكون ملف ال Pdf فيه كل الصور  

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

[ابوخليل]

13 ساعات مضت, Foksh said:

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

كفكرة ، قم بإنشاء تقرير يجلب الصور من مساراتها ، ثم قم بتصدير التقرير إلى ملف PDF .

أعتقد هذا أنسب حل لك 😉 .

أتابع من الجوال 

ما شاء الله لا قوة الا بالله .. فكرة عبقرية اعجبتني جدا  .. لا تخطر على البال

[Foksh]

5 ساعات مضت, العنزي العنزي said:

السلام عليكم استاذي الفاضل Foksh ورحمة الله وبركاته 

جزاك الله خيرا وشكرا جزيلا لحضرتك يا طيب ممنون من حضرتك 

استاذي الفاضل ممكن ان تجعل كل صورة في صفحة ليكون ملف ال Pdf فيه كل الصور  

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

تفضل أخي الكريم ، ما تم هو:-

انشاء جدول يحتوي حقل ترقيم تلقائي ( ليس ذا علاقة بالموضوع ، ولكنه عادة ... ) ، وحقل لإضافة المسارات اليه عند اختيارك للصور .

ثم إنشاء تقرير مصدره الجدول السابق ، وتم إنشاء عنصر صورة مصدره المربع النصي المرتبط بالحقل الخاص بالمسارات .

ثم داخل التقرير لعرض كل صورة في صفحة مستقلة ، في قسم التفاصيل =  = تقسيم الصفحات بعد هذا الجزء .

وفي نموذج الإفتراضي ، في الزر جعلت لك الأحداث داخل نفس الزر بحيث عند النقر عليه ، تستطيع اختيار الصور التي تريدها ، وبعد الموافقة عليها سيتم فتح التقرير وتصديره الى ملف PDF في المجلد A2 كما طلبت . وهذا من خلال الكود التالي :-

Private Sub Command0_Click()
    Dim fd As Object, selectedFile, db As DAO.Database, rs As DAO.Recordset
    Dim response As Integer, exportPath As String
    
    response = MsgBox("هل تريد حذف السجلات القديمة قبل إضافة الصور الجديدة؟" & vbCrLf & vbCrLf & _
                     "نعم: لحذف السجلات القديمة أولاً" & vbCrLf & _
                     "لا: للإبقاء على السجلات القديمة وإضافة الجديدة" & vbCrLf & _
                     "إلغاء: لإيقاف العملية بالكامل", _
                     vbQuestion + vbYesNoCancel + vbMsgBoxRight, "خيارات الإضافة")
    
    If response = vbCancel Then Exit Sub
    
    exportPath = CurrentProject.Path & "\A2\تقرير_الصور_" & Format(Now(), "yyyy-mm-dd_hh-mm-ss") & ".pdf"
    If Dir(CurrentProject.Path & "\A2", vbDirectory) = "" Then MkDir CurrentProject.Path & "\A2"
    
    Set db = CurrentDb()
    If response = vbYes Then db.Execute "DELETE FROM Tbl_Foksh", dbFailOnError
    
    Set fd = Application.FileDialog(3)
    With fd
        .Title = "اختر الصور المطلوبة"
        .AllowMultiSelect = True
        .Filters.Clear
        .Filters.Add "ملفات الصور", "*.jpg;*.jpeg;*.png;*.bmp;*.gif"
        
        If .Show = -1 Then
            Set rs = db.OpenRecordset("Tbl_Foksh")
            For Each selectedFile In .SelectedItems
                rs.AddNew
                rs!Pic_Path = CStr(selectedFile)
                rs.Update
            Next
            rs.Close
            
            DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, exportPath, False
            MsgBox "تمت العملية بنجاح" & vbCrLf & _
                   IIf(response = vbYes, "تم حذف السجلات القديمة", "تم الاحتفاظ بالسجلات القديمة") & vbCrLf & _
                   "تم إضافة مسارات الصور الجديدة" & vbCrLf & _
                   "تم تصدير التقرير إلى: " & exportPath, _
                   vbInformation + vbMsgBoxRight, ""
        Else
            MsgBox "لم يتم اختيار أي ملفات", vbExclamation + vbMsgBoxRight, ""
        End If
    End With
    
    Set rs = Nothing: Set db = Nothing: Set fd = Nothing
End Sub

 

حيث يسمح لك الكود ، بحذف السجلات السابقة من الجدول أو الإحتفاظ بها وإضافة صور ( سجلات جديدة ) أو إلغاء العملية كاملة .

 

ملف للتجربة :-

 

frmPDF.zip

[العنزي العنزي]

استاذي الفاضل Foksh ربي يحفظك يا طيب ممنون من حضرتك جزاك الله خيرا الله يسلمك ويحفظك يارب