تعديل علي كود تصدير 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]

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