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

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


الردود الموصى بها

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

Desktop.rar

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

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

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

 

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

يظهر غير منسق

Untitled.thumb.png.7821fbd0a3458769dbd9ff5b901d18f6.png

تم تعديل بواسطه محمد سلامة
رابط هذا التعليق
شارك

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

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

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

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

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

شكرا لك

تم تعديل بواسطه محمد سلامة
رابط هذا التعليق
شارك

السلام عليكم 

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

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

تم تعديل بواسطه صالح حمادي
  • Like 6
رابط هذا التعليق
شارك

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:

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

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

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

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

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

 

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

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

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

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

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

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

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

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

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

 

بارك الله فيك

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

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

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

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

بارك الله فيك

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

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

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

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

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

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.

×
×
  • اضف...

Important Information