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

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

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