استفسارين:عن طباعة النص الموجود في اداة النص و ظهور النص في اداة العنوان حرفا حرفا

استفسارين:عن طباعة النص الموجود في اداة النص و ظهور النص في اداة العنوان حرفا حرفا

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

انا عندي سؤالين ..محتاجة الى الاجابة عليهم باقصى سرعة ..واتمنى الاجابة عليهم بوضوح..

1- انا عملت زر طباعة ..بحيث عندما ينقر المستخدم عليه ..تتم طباعة النص الموجود في اداة textbox

وبذلك وضعت هذا الكود في حدث النقر على زر (طباعة)

Printer.ScaleLeft = 100

Printer.ScaleTop = 100

Printer.CurrentX = 100

Printer.CurrentY = 100

Printer.Print TextBox1.Text

Printer.EndDoc

والمشكلة الان انه يتم طبع النص على سطر واحد في ورقة الطباعة..وايضا لاتتم طباعة النص كاملا ..

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

(واتمنى الان ان يتفضل علي من يعرف الحل ..او من عنده طريقة اخرى لطباعة النص الموجود في اداة textbox ..ان يمدني بالاجابة سريعا شاكرتا له مقدما)

-------------------

2- انا اريد ان يظهر النص في اداة label حرفا حرفا ..وذلك عند النقر على زر command وقد وضعت هذا الكود

For o = 1 To Len(o2)

Label1.Caption = Label1.Caption & Mid(o2, o, 1)

Next o

حيث ان o2 متغير يحتوي على النص ..والمشكلة عندي هنا بأنه عندما انقر على الزر حتى يتم ظهور النص حرفا حرفا ..فإنه يتم ظهور النص كله دفعة واحدة ..بحيث لايظهر التاثير ..

فأتمنى من لديه معلومات او اي حل ..ان يمن علي به ..

-----------------

مع تحياتي

بلورة