كيف ممكن أعمل توسيط للكلام بداخل Rich TextBox
وأطبعه موسط ...
ارجوا الافادة
Printer.Orientation = vbPRORLandscape form1.richtextbox1.SelAlignment = 2 form1.richtextbo1.SelPrint (Printer.hDC)
ارجوا الاسراع بالرد
وشكرا لكم
التوسيط للطابعة
مغلق
كيف أعمل للأداة Rich TextBox توسيط
وعندما اتعامل مع الPrinter بالطباعة تطبع النص اللي بداخلها بعد عمل توسيط .. ويطبع توسيط
ارجوا الإفادة
بارك الله فيكم
ما زال السؤال قائم
؟؟
:(
اتمنى ان يرد عليه بجواب شافي
اشكرك اخي على اللينك فقد تعلمت منه اشياء
ولكن مشكلتي مازالت قائمة
اختى رزان
المشكلة اننى لا املك PRINTER حاليا لذلك لا استطيع التجربة ولكن هناك فكرة أرجو ان تفلح معكى وتعمل جيدا وان لم تعمل حاولى تعديلها و التجريب حتى تصلى الى مرادك
واليك الكود لا ينقصه سوى ان تضيفى أمر الطباعة فى اخره فقط
Private Sub Command1_Click() Dim StartPos As Integer Dim PrnWordLen As Integer Printer.Font = RichTextBox1.Font Printer.FontSize = RichTextBox1.Font.Size PrnWordLen = Printer.TextWidth(RichTextBox1.Text) StartPos = (RINTER.Width - PrnWordLen) / 2 Printer.CurrentX = StartPos ' PRINTING CODE End Sub
1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول
2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت
3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه
4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته
5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام
6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد
7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك
8 - الابتسامة كلمة طيبة بغير حروف
9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها
10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا
طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها
من مواضيعى :
--------------
دروس تعلم كيف تصحح أخطائك بنفسك
برنامج الحائط النارى العربى ---- جديد
برنامج ساعة بالعقارب ------ جديد
غير نظرتك لل picturebox وانظر ماذا فعلت بها
حمل ملف فلاش على الفورم بكل سهولة
مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة
ما ضبط
المشكلة اني اطبع على ورقة بحجم معين
؟؟
ما بعرف مش راضيه تضبط
للرفع
:(
هذا الموضوع مغلق.