مشاركة مع أستاذنا @ناقل ، جرب هذا الكود في الزر المسؤول عن التصدير
Dim outputPath As String
outputPath = CurrentProject.Path & "\Reports\"
If CheckA.Value = True Then
DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, outputPath & "Report1.pdf"
End If
If CheckC.Value = True Then
DoCmd.OutputTo acOutputReport, "Report2", acFormatPDF, outputPath & "Report2.pdf"
End If
If CheckD.Value = True Then
DoCmd.OutputTo acOutputReport, "Report3", acFormatPDF, outputPath & "Report3.pdf"
End If
If CheckE.Value = True Then
DoCmd.OutputTo acOutputReport, "Report4", acFormatPDF, outputPath & "Report4.pdf"
End If
وهذا مرفق ، جرب الزر Try Me بعد تحديد اي تقارير تريد
Test (1) (1).accdb