الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في طباعة نص عربي على الطابعة

بدأه محب أكسس في 12 سبتمبر 2009 · 2 رد · 661 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عندي طابعة نقطية

اعطيها طباعة نص انجليزي تطبعه بدون اي مشكلة ولكن عند طباعة نص عربي يظهر بشكل غير عربي ( صيني )

هذا الكود الذي كتبه

Open "LPT1" For Output As #1
Print #1, "omer khali ali"
Print #1, "عمر خالد علي"
Close (1)

تم تعديل هذه المشاركة بواسطة محب أكسس في 12 سبتمبر 2009 في 01:30

#2

السلام عليكم...

ربما السبب هو أن الخط المعين للطابعة لا يدعم اللغة العربية، فليست كل الحطوط تدعم اللغة العربية.

جرب كتابة السطرين التاليين قبل جملة Open (أو ربما بعدها) على اعتبار أن الطابعة التي تستعملها هي الطابعة الافتراضية (Default Printer) في النظام:

  1.  
  2. Printer.Font.Name = "Tahoma" ' استعمل خطاً يدعم اللغة العربية
  3. Printer.Font.Charset = 178 ' رقم طاقم الرموز العربية في ويندوز
  4.  

أرجو أن ذلك يحل المشكلة.

نصيحة:

لا تستعمل هذه الطريقة عند الطباعة لأنك تعتمد على أن الطابعة موصولة بالمنفذ LPT1 و هي قد تكون موصولة بـ LPT2 مثلاً، كما أن معظم الطابعات الحديثة تستعمل منافذ الـ USB للتوصيل.

استعمل الكائن Printer الذي يمتلك العديد من الخصائص و الوظائف التي تمكنك من التحكم الكامل في عملية الطباعة.

نرجو الاستفادة و السلام.

وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ

صدق الله العظيم

#3

اشكرك اخي ناجي

لم ينفع الحل للاسف .... نفس المشلكة

اظن ان الامر يتعلق بـ unicode

ارجو المساعدة فالامر محاتاجه في العمل

مواضيع مشابهة