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

[Hamtoooo]

السلام عليكم 

اسعد الله يومكم بكل خير 

اساتذتي الافاضل

لاستفيد ويستفيد غيري 

لدي جدولين مرتبطان بعلاقه

وضعت لهم نموذج متعدد اريد بعد انتهائي من فرز النتائج بطريقة التصفيه المدمجه بالاكسس ( تصفيه وفرز يمين الماوس ) يكون هناك زر للطباعه او حفظها pdf

بشرط ان تتم طباعه التتقرير بالنتائج الضاهره بالنموذج والذي سبق ان قمت بعمل تصفيه لهم

مرفق لكم مثال لترويض المسأله 

شكرا لكم

 

 

طباعة بعد التصفيه.accdb

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

يمكنك استخدام الكود التالي

    Dim MyPath As String
    MyPath = CurrentProject.Path & "\"
    DoCmd.OutputTo acOutputForm, "جدول1", acFormatPDF, MyPath & "1.pdf", False

او وضع المعايير في استعلام والتصدير بالكود التالي

    Dim MyPath As String
    MyPath = CurrentProject.Path & "\"
    DoCmd.OutputTo acOutputQuery, "Query1", acFormatPDF, MyPath & "1.pdf", False

تحياتي

[ابو جودي]

36 دقائق مضت, محمد أبوعبدالله said:

او وضع المعايير في استعلام والتصدير بالكود التالي

افضل عمل استعلام ليكون مصدر بيانات النموذج

ويستخدم نفس الاستعلام للتقرير  

وبالنسبة للتصدير اهديكم هذا المرفق 

تصدير ( تقرير /عدة تقارير ) الى  PDF  والذى يتميز بالاتى 
1- مرونة فى اختيار مسار تصدير الـ ( تقرير / عدة تقارير ) فى كل مرة حسب الحاجة ويمكنك تثبيت المسار اذا اردت
2- اختيار تقرير واحد من القائمة أو أكثر ( عدة تقارير ) لتصديرهم الى مسار محدد
3-اختيار الاجراء بعد التصدير استعراض او عدم استعراض  وفتح ملف الـ PDF
4-الاكواد فى روتين عام يمكن استدعائها من اى مكان 
5-امكانية اضافة طباعة التقارير مع او بدل كود التصدير الى PDF  وهذه ميزة كتابة الكود فى روتين عام داخل موديول 

يعنى شغل فاخر من الاخر 

 

Export Multi Reports.mdb

تم تعديل ديسمبر 27, 2021 بواسطه ابو جودي