حل مشكلة في التفقيط عند الطباعة

[محمد يوسف ابو يوسف]

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

احبتي في الله 

يوجد لديه مشكله بعد الطباعة اجد التفقيط متكرر في الفاتورة

شاكر جداً لمن حاول ان يساعدني

الملف التفقيط.xlsm

صورة للمشكله 

 

[Ali Mohamed Ali]

وعليكم السلام -يجب تغيير هذا السطر من الكود

Label1.Caption = "        " & NoToTxt(TextBox1.Value, " فلس", " درهم")

على ان يصبح هكذا وتم التجربة بالفعل بالطابعة ويعمل كما تريد

Label1.Caption = NoToTxt(TextBox1.Value, " درهـــمً", " فلــس")

التفقيط1.xlsm

[محمد يوسف ابو يوسف]

استاذ Ali Mohamed Ali  جزاك الله خيراً

حل ممتاذ 

شكراً علي المساعدة