عدد المرات لتكرار ( اشكرك شكرا جزيلا) في A4

هذه تأتي بالتجربة لمعرفة ذلك

اشكرك اخي ...انا محتاج الى معرفة حجم الحرف فمقاس الحروف يختلف من حرف الى حرف انظر مثلا لو ان كررت الحرف ألف 10 مرات

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

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

موضوع ليس بالسهل واظن والله اعلم ان هذا الموضوع اول مرة يتطرق له في الانترنت .

السلام عليكم,

بالنسبه لمعرفة طول الحرف أو الجمله فهناك داله متوفره في الفيجول بيسك تمكنك من معرفة طول الحرف و لكن عند استخدام الداله في الفورم سوف تعطي نتيجه مختلفه عن النتيجه التي ستعطيها مع كائن الطباع فبإمكنك تغير خط الفورم و جعله نفس الخط المستخدم في كائن الطباعة أو بإمكانك استخدام الداله مباشرة من كائن الطباعة , علما بأنني أفضل استخدام الفورم بدلا من كائن الطباعة لأنه يعطي نتائج أدق مع الخطوط العربية , ولكن أنت ستقرر بالنهاية ما هو الأنسب لك .

الداله هي Textwidth فعندما تمرر لها النص المطلوب معرفة عرضه تعطيك الطول بالوحدة المحددة ب ScaleMode للنص باستخدام الخط المحدد في خاصية Font .

و كمثال سريع يمكنك كتابة التالي :

Printer.Font.Name = "Arial"
mytextwidth = Printer.TextWidth("اشكرك شكرا جزيلا اشكرك شكرا جزيلا اشكرك شكرا جزيلا اشكرك شكرا")
mypagewidth =  Printer.Width

و بمعرفة عرض الصفحة و عرض النص بإمكانك أن تعدل طول النص المراد طباعته ليغطي عرض الصفحة ...

أرجو أن تكون الإجابه وافية و تلبي المطلوب ... ;)

اشكرك اخي King_Basel كثير

ويبدو انك محترف وارجو منك التكرم بعمل كود يطبع عبارة "شكرا جزيلا" بحيث تملا صفحة واحدة فقط من A4

او اي عبارة يدخلها المستخدم .

وفقك الله ورعاك