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

طباعة تكست بوكس متعدد الاسطر

مغلق
بدأه ARIZONA في 14 فبراير 2002 · 3 رد · 823 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

الى جميع الاخوان في المنتدى . هذه اول مشاركه لي في هذا المنتدى وامل ان اجد ردا مناسبا.

مشكلتي انه يوجد لدي برنامج يوجد به احد اداة النصوص يمكن ادخال به نص اكثر من سطر ولكن عند الطباعه بخاصية PRINTER.PRINT TEXT 1.TEXT تتم طباعة النص حتى اخر الحد الايمن للصفحه ولاتظهر بقية النص حيث انه لاتبدا الطابعه سطرا جديدا لاكمال ماتيقى من النص. علما انني استخدمت الخاصيه CURRENTX مع SCALEWIDTH و TEXT WIDTH

امل المساعده واذا كان هنالك موقع اوكتاب خاص بالطباعه في فيجوال بيسك امل الاشاره اليه

ولكم خالص تحياتي

#2

ضع الكود الخاص بالطباعه والذى إستخدمته حتى نتمكن من مساعدتك

اللهم أغفر لنا ولوالدينا ومعلمينا وأساتذتنا ومشايخنا وكل من له فضل علينا

#3

لماذا لاتستعمل أداة Rich Text Box يمكنك من تلوين وتغيير أنماط الحروف ويمكنك أيضاً من الطباعة عن طريق نفس الأداة .

مجرد فكرة ...:o

#4

الى الاخ المشرف هذا هو الكود الذي استخدمته وشكرا على سرعة التجاوب

PRINTER.RIGHT TO LEFT= TRUE

Printer.FontSize = 15

Printer.FontBold = True

Dim pw As Integer

Dim tw As Integer

pw = Printer.ScaleWidth

tw = Printer.TextWidth(Text3.Text)

Printer.CurrentY = 380

Printer.CurrentX = (pw - tw)

Printer.Print Text3.Text

وهل يمكن استخدام خاصية RICH TEXT مع قاعدة البيانات حيث انني استخدم الطباعه اعلاه على نموذج ورقي شبيه بنظام الفواتير .

هذا الموضوع مغلق.

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