مطلوب : طباعة كل صفحة بالتقرير بملف PDF منفصل

[عبدالله 760]

السلام عليكم

 

عملت تقرير تجميعي

جمعت كل السجلات المطلوبة بصفحة لوحدها في نفس التقرير

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

جربت هذا الكود :

Private Sub to_printer_D_Click()
DoCmd.OpenReport "myreport", acViewNormal
End Sub

ولكن به مشكلتين معي

1. يخرج الملف بدون اسم الحقل المطلوب

2. يخرج جميع الصفحات مع بعض .. وانا اريد كل صفحة بملف مستقل تماما عن الصفحات الاخرى

 

ملاحظة صفحات التقارير كثيرة تتجاوز الف صفحة وغير مجدي يدويا

القاعدة كبيرة الحجم صعب ارفقها

 

أرجو من اساتذتي الكرام المساعدة في حلها

 

متعلم جديد في الاكس 🙂

[د.كاف يار]

انشى Module جديد و الصق التالي

Function ExportReport(ReportName As String, Index As Variant)
Dim fso As Object
Dim fldrname As String
Dim fldrpath As String
Set fso = CreateObject("scripting.filesystemobject")
fldrname = "Files"
fldrpath = CurrentProject.Path & "\" & fldrname
If Not fso.FolderExists(fldrpath) Then
    fso.createfolder (fldrpath)
End If
    DoCmd.OpenReport ReportName, acViewReport, , "[ID]=" & Index
    DoCmd.OutputTo acOutputReport, ReportName _
    , "PDFFormat(*.pdf)", fldrpath & "\" & _
    Index & ".pdf", False, "", , acExportQualityPrint
    DoCmd.Close acReport, ReportName, acSaveYes
End Function

و في ازرار الحفظ الصق التالي

ضع اسم التقرير + مربع نص ID

Call ExportReport("Report Name Her", ID Number Her)

سيتم انشاء مجلد لحفظ ملفات pdf

====================

مرفق مثال لذلك

ExportReport.zip

تم تعديل يناير 25, 2022 بواسطه د.كاف يار

[عبدالله 760]

جاري الاطلاع اكثر

تم تعديل يناير 25, 2022 بواسطه عبدالله 760