اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طريقة الطباعه او حفظ 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

تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

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

 

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

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

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

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

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

 

Export Multi Reports.mdb

تم تعديل بواسطه ابو جودي
  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information