تصدير الباركود QR code ماتركس الى ملف وورد

[محمد سلامة]

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

Desktop.rar

المرفق تم تحميله من الموقع هنا وهو للباركود ماتركس 2D QR code 

كل ما اريده هو ان اقوم بتصدير التقرير المذكور فى المرفق الى ملف وورد ،، طبعا انا بعرف اصدر التقرير ولكنه بعد التصدير يظهر بطريقة غير منظمة

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

 

وهذه صورة بعد التصدير 

يظهر غير منسق

تم تعديل أبريل 9, 2017 بواسطه محمد سلامة

[محمد سلامة]

Up

[محمد سلامة]

تحديث

Up

[محمد سلامة]

تحديث up

[Shivan Rekany]

حاولت كثير لكن بدون جدوى
لكن تكدر تعمل تصدير الى بي دي ايف 
 

[محمد سلامة]

2 ساعات مضت, Shivan Rekany said:

حاولت كثير لكن بدون جدوى
لكن تكدر تعمل تصدير الى بي دي ايف 
 

شكرا لك اخي شيفان

وانا ايضا حولت كثيرا لذلك قولت اسال هنا في المنتدي

للاسف اريدها في ملف وورد وليس pdf

شكرا لك

تم تعديل أبريل 12, 2017 بواسطه محمد سلامة

[صالح حمادي]

السلام عليكم 

بعد العديد من المحاولات أخي محمد توصلت إلى كود يقوم بتصدير الباركود كما هو:

Dim objWord As Object
    Dim oDoc As Object
    Dim i As Integer
    Dim j As Integer
    Dim sTemp As String
    DoCmd.OpenReport "report1", acViewPreview, , , acHidden
    Set objWord = CreateObject("word.application")   
    Set oDoc = objWord.Documents.Add
    With objWord
        .Visible = True
        .selection.Font.Name = "MW6 Matrix"
        .selection.Font.Size = 22
        .selection.ParagraphFormat.LineSpacing = 11
        .selection.ParagraphFormat.SpaceAfter = 0
        .selection.ParagraphFormat.SpaceBefore = 0
        .selection.InsertAfter Reports![Report1]![Text0]
    End With
    oDoc.SaveAs2 CurrentProject.Path & "\ss123.docx"    
    objWord.Quit   
   DoCmd.Close acReport, "report1"
   Set objWord = Nothing
   Set oDoc = Nothing

 

Desktop10.rar

تم تعديل أبريل 15, 2017 بواسطه صالح حمادي

[صالح حمادي]

اطلع على المرفق و وافني بالنتيجة

[محمد سلامة]

16 ساعات مضت, صالح حمادي said:

السلام عليكم 

بعد العديد من المحاولات أخي محمد توصلت إلى كود يقوم بتصدير الباركود كما هو:

Dim objWord As Object
    Dim oDoc As Object
    Dim i As Integer
    Dim j As Integer
    Dim sTemp As String
    DoCmd.OpenReport "report1", acViewPreview, , , acHidden
    Set objWord = CreateObject("word.application")   
    Set oDoc = objWord.Documents.Add
    With objWord
        .Visible = True
        .selection.Font.Name = "MW6 Matrix"
        .selection.Font.Size = 22
        .selection.ParagraphFormat.LineSpacing = 11
        .selection.ParagraphFormat.SpaceAfter = 0
        .selection.ParagraphFormat.SpaceBefore = 0
        .selection.InsertAfter Reports![Report1]![Text0]
    End With
    oDoc.SaveAs2 CurrentProject.Path & "\ss123.docx"    
    objWord.Quit   
   DoCmd.Close acReport, "report1"
   Set objWord = Nothing
   Set oDoc = Nothing

 

Desktop10.rar

 

1 ساعه مضت, صالح حمادي said:

اطلع على المرفق و وافني بالنتيجة

ماشاء الله ... تمام التمام

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

بجد متشكر جدا جدا

 

[صالح حمادي]

6 ساعات مضت, محمد سلامة said:

ماشاء الله ... تمام التمام

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

بجد متشكر جدا جدا

العفو أخي ما فيه أي تعب المهم أننا وصلنا إلى النتيجة.

موضوعك كان رائعا و أشكرك جزيلا الشكر لأن مثل هذه المواضيع تجعلنا نبحث أكثر و نستفيد أكثر.

 

[Ahmed.IQ]

سؤال لو سمحتم ملف DLL تنظاف بال بالسستم 32؟  لان ضفتها وحاولت افعلها مضبطت معي

[صالح حمادي]

منذ ساعه, Ahmed.IQ said:

سؤال لو سمحتم ملف DLL تنظاف بال بالسستم 32؟  لان ضفتها وحاولت افعلها مضبطت معي

يتم نسخ ملف DLL في ملف system32 

ثم تسجيلها من ال run

[Ahmed.IQ]

التسجيل يكون بكتابة مسار الملف ام هناك شيء اخر ؟

 

[صالح حمادي]

اسم الملف فقط

 

[Ahmed.IQ]

تمام انا كنت ناسي احول x64 ما انتبهت على الكود :) شكرا لك

[محمد سلامة]

8 ساعات مضت, صالح حمادي said:

العفو أخي ما فيه أي تعب المهم أننا وصلنا إلى النتيجة.

موضوعك كان رائعا و أشكرك جزيلا الشكر لأن مثل هذه المواضيع تجعلنا نبحث أكثر و نستفيد أكثر.

 

بارك الله فيك

فعلا تلك الموضيع تجعلنا نبحث ونستفيد بس اوقات الواحد دماغه بتقفل فايفضل حينها الاستعانة بالاصدقاء في المنتدي 

في ١٢‏/٤‏/٢٠١٧ at 19:09, Shivan Rekany said:

حاولت كثير لكن بدون جدوى
لكن تكدر تعمل تصدير الى بي دي ايف 
 

شكرا لك اخي شيفان علي محاولاتك معنا

بارك الله فيك

[صالح حمادي]

6 ساعات مضت, محمد سلامة said:

فعلا تلك الموضيع تجعلنا نبحث ونستفيد بس اوقات الواحد دماغه بتقفل فايفضل حينها الاستعانة بالاصدقاء في المنتدي 

نعم أخي محمد لا يوجد حرج في أن يطلب الشخص العون من إخوته. كلنا نحتاج و كلنا نطلب العون