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

[محمد سلامة]

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

Desktop.rarFetching info...

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

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

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

 

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

يظهر غير منسق

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

[محمد سلامة]

Up

[محمد سلامة]

تحديث

Up

[محمد سلامة]

تحديث up

[Shivan Rekany]

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

[محمد سلامة]

  في 12‏/4‏/2017 at 17:09, Shivan Rekany said:

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

Expand  

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

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

للاسف اريدها في ملف وورد وليس 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 بواسطه صالح حمادي

[صالح حمادي]

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

[محمد سلامة]

  في 15‏/4‏/2017 at 07:40, صالح حمادي 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.rarFetching info...

Expand  

 

  في 15‏/4‏/2017 at 22:14, صالح حمادي said:

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

Expand  

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

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

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

 

[صالح حمادي]

  في 16‏/4‏/2017 at 00:02, محمد سلامة said:

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

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

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

Expand  

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

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

 

[Ahmed.IQ]

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

[صالح حمادي]

  في 16‏/4‏/2017 at 08:59, Ahmed.IQ said:

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

Expand  

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

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

[Ahmed.IQ]

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

 

[صالح حمادي]

اسم الملف فقط

 

[Ahmed.IQ]

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

[محمد سلامة]

  في 16‏/4‏/2017 at 06:33, صالح حمادي said:

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

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

 

Expand  

بارك الله فيك

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

  في 12‏/4‏/2017 at 17:09, Shivan Rekany said:

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

Expand  

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

بارك الله فيك

[صالح حمادي]

  في 16‏/4‏/2017 at 14:51, محمد سلامة said:

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

Expand  

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