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

[أحمد العيسى]

السلام عليكم

بمزيج من :  استخدام  أداة الأخ العزيز Foksh  ، والتدخل اليدوي فى صناعة القوائم بأوفيس 2003 ( لأنه هو الوحيد الذى يسمح بذلك )

 

تم إنشاء هذه القائمة المختصرة التى تناسب ظهورها الاستفادة السريعة من  التقارير

جربت هذه القائمة على كافة إصدارات الأكسس وكانت ممتازة وكل محتوياتها مفعلة ومتاحة ( غير خافتة )

وعند تجربتى لتصدير التقرير بصيغة وورد .. كانت رائعة  فى 2003  و  2024  .. لكن بدون ظهور الجدول المحيط بالبيانات

كنت قد قرأت فيما سبق عن حلول بالمنتدى فى هذا  الموضوع .. لكنها غير ناجحة تماماً

إذا كان هناك موضوع لم أصل إليه .. أرجو  الإشارة إليه

سأرفق الملف الذى يحتوي على القائمة المختصرة أعلاه ( بالمرفقات)  لمن  يريد الاستفادة منها

 

ShortMenu_qryPrinting.mdb

[أحمد العيسى]

التصدير بصيغة  PDF  غير متاح من داخل أوفيس 2003  لكنه متاح فى باقى الإصدارات ،

و أظن أن باقى زملائي القدامى يعلم بأنه كانت هناك صيغة تصدير  snp  مدمجة فى 2003  ( Snapshot Viewer )

وهى ممتازة فى الاحتفاظ بتنسيق الملف كاملاً بكل جداوله وباقى محتوياته ويمكن الطباعة منها  مثل الصورة :

وقد استخدمت الكود التالي فى استخراج الملف السابق وحفظه فى مكان محدد بالكمبيوتر

Private Sub btnSnap2_Click()
    On Error GoTo Err_btnSnap2_Click
    
    Dim defaultFolder As String
    Dim filePath As String

    defaultFolder = "D:\_BackUp_Teacher\"
    If Not (Me.cbo_Class = "") Then
        If Dir(defaultFolder, vbDirectory) = "" Then
           MkDir defaultFolder
        End If
        filePath = defaultFolder & [Forms]![frm_Section]![cbo_Class] & ".snp"
        DoCmd.OutputTo acReport, "1_سرى_القاهرة_مع_داخلى", "SnapshotFormat(*.snp)", filePath, False, "", 0
        MsgBox "تم استخراج ملف سناب شوت وحفظه في:" & vbCrLf & vbCrLf & filePath, vbInformation + vbMsgBoxRight, ""

    Else
        MsgBox ("  !!!!!  عفواً ،،،، أختر مجموعة من القائمة"), vbOKOnly + vbMsgBoxRight, "ملاحظـة"
    End If
    
Exit_btnSnap2_Click:
    Exit Sub

Err_btnSnap2_Click:
    MsgBox ("لا يوجد سجلات لتصديرها "), vbOKOnly + vbMsgBoxRight, "تنبيه"
    Resume Exit_btnSnap2_Click

End Sub

بالتجربة وجدت أن هذه الوسيلة متاحة أيضاً فى باقى الإصدارات بشرط تثبيت ملف Snapshot المرفق

فهل من وسيلة لإضافة الكود السابق لبنود القائمة المختصرة أعلاه ؟؟

Snapshot Viewer 10.rar

تم تعديل منذ 17 ساعات بواسطه أحمد العيسى

[jjafferr]

وعليكم السلام

 

نعم ممكن ، عن طريق القائمة المختصرة المؤقته :

 

.

1. اعمل قائمة مختصرة عند النقر على اليمين ، بحيث يظهر لك اسم القائمة (مثلا) : Export_to_SNP

                Set cmbCtrl = cmb.controls.Add
                    cmbCtrl.Caption = "Export_to_SNP"
                    cmbCtrl.OnAction = "=fExport_SnapShot"

2. حوّل الحدث الذي ارفقته اعلاه الى وحدة نمطية مستقلة (يجب ان تغير .Me الى مسار التقرير/النموذج) ، واسمها يكون fExport_SnapShot