تعديل علي كود تصدير pdf

[2saad]

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته

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

يعني بدلا من أيكون تقرير واحد Q يكون  A   b   c   Q 

DoCmd.OutputTo acOutputReport, "Q", acFormatPDF, strPathAndfile, True

[kanory]

15 دقائق مضت, 2saad said:

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته

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

يعني بدلا من أيكون تقرير واحد Q يكون  A   b   c   Q 

DoCmd.OutputTo acOutputReport, "Q", acFormatPDF, strPathAndfile, True

هل تريد تصدير هذه التقارير في ملف واحد ام ملفات متعددة

[2saad]

ملف واحد

[kanory]

15 دقائق مضت, 2saad said:

ملف واحد

استتخدم هذا مع تعدي اسماء التقارير في المصفوفة

Sub Export_All_Reports_To_OnePDF()

    Dim arrReports As Variant
    Dim i As Integer
    Dim strFile As String
    
    ' أسماء التقارير بالترتيب المطلوب
    arrReports = Array("Q", "Report2", "Report3")

    strFile = CurrentProject.Path & "\AllReports.pdf"

    ' فتح التقارير (مخفية)
    For i = LBound(arrReports) To UBound(arrReports)
        DoCmd.OpenReport arrReports(i), acViewPreview, , , acHidden
    Next i

    ' دمج وتصدير في ملف واحد
    DoCmd.OutputTo acOutputReport, arrReports(0), acFormatPDF, strFile, False

    ' إغلاق التقارير
    For i = LBound(arrReports) To UBound(arrReports)
        DoCmd.Close acReport, arrReports(i), acSaveNo
    Next i

    MsgBox "تم إنشاء الملف بنجاح", vbInformation

End Sub

 

[2saad]

اخي الفاضل استعملت هذا الكود 

ولكن بيصدر تقرير واحد 

[Foksh]

اذا كان هدفك تصدير عدة تقارير دفعة واحدة بملف PDF واحد ، فأنت ستحتاج الى تقرير واحد يشملهم جميعاً ثم يتم تصديره .

خلاف ذلك ستحتاج الى ادوات خارجية مساعدة لتدمج لك 4 ملفات PDF - ( بالفرض 4 تقارير ) - ليتم دمجها بملف واحد .

[2saad]

أنا أحتاج كل التقارير في ملف واحد ( يعني ملف وبداخله كل التقارير )

[kanory]

طيب استخرج المجلد بجوار القاعدة
ثم استخدم هذا الكود
 

Sub ExportReports_To_OnePDF_PDFtk()

    Dim arrReports As Variant
    Dim i As Integer
    
    Dim strTempFolder As String
    Dim strFinalPDF As String
    Dim strPDFtk As String
    Dim strCmd As String
    strPDFtk = CurrentProject.Path & "\PdftkBuilderPortable\pdftk.exe"
    strTempFolder = CurrentProject.Path & "\TempPDF\"
    strFinalPDF = CurrentProject.Path & "\AllReports.pdf"
    arrReports = Array("rpt1", "rpt2", "rpt3")
    If Dir(strTempFolder, vbDirectory) = "" Then
        MkDir strTempFolder
    End If
    If Dir(strTempFolder & "*.pdf") <> "" Then
        Kill strTempFolder & "*.pdf"
    End If
    For i = LBound(arrReports) To UBound(arrReports)
        DoCmd.OutputTo acOutputReport, arrReports(i), acFormatPDF, _
                       strTempFolder & (i + 1) & "_" & arrReports(i) & ".pdf", False
    Next i
    strCmd = """" & strPDFtk & """ " & _
             """" & strTempFolder & "*.pdf"" cat output " & _
             """" & strFinalPDF & """"
    
    Shell strCmd, vbHide
    
    MsgBox "تم إنشاء ملف PDF واحد بنجاح ?" & vbCrLf & strFinalPDF, vbInformation
     Kill strTempFolder & "*.pdf"

End Sub

 

PdftkBuilderPortable.rar

[2saad]

شكرا جزيلا أخي الفاضل وبارك الله فيك وجعله في ميزان حسناتك