أنا عاملة برنامج شبيه بالورد
واضعه اداة Rich TextBox
وبعمل لها تنسيق للكلام اللي بداخلها
كل سطر أو جملة أو حتى كلمة لها تنسيق معين
المهم
أو السؤال هو
أريد أن أطبع ما بداخل هذه الأداة على ورقة
مع العلم أنني بحدد نقطة البداية اللي بيبدأ طباعة من عندها
الرجاء المساعدة
وشكرا لكم
يمكنك الطباعة عن طريق الامر التالي
richtextbox1.selprint=printer.hdc
*************************************************
**************************************************
مصطفى زيداني
أنار الله طريقك بالخير
وجعل حياتك كلها سعادة
شكرا لك
اميييييييييييين
*************************************************
**************************************************
مصطفى زيداني
طيب أريد ان أحدد لها ان تطبع الورقه بالLandscape
سأبحث لك إن شاء الله لانه نسيته بالضبط
لكن سيكون الرد سريع بإذن الله
*************************************************
**************************************************
مصطفى زيداني
أنتظر الرد بفارغ الصبر
وشكرا لك على تعاونك
وبارك الله فيك
اضبطى خصائص الprinter كالتالى ومن ضمنها ما تريدين landscape
Printer.ScaleMode = vbPixels Printer.PaperSize = vbPRPSA4 Printer.Orientation = vbPRORLandscape 'ما تريدين Printer.PrintQuality = vbPRPQHigh
1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول
2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت
3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه
4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته
5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام
6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد
7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك
8 - الابتسامة كلمة طيبة بغير حروف
9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها
10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا
طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها
من مواضيعى :
--------------
دروس تعلم كيف تصحح أخطائك بنفسك
برنامج الحائط النارى العربى ---- جديد
برنامج ساعة بالعقارب ------ جديد
غير نظرتك لل picturebox وانظر ماذا فعلت بها
حمل ملف فلاش على الفورم بكل سهولة
مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة
بارك الله فيك أخي الفاضل VB6-Rocket
وجزاك الله عني كل الخير
دامك الله سعيدا في حياتك
اسف على التاخير
لقد سبقني بها اخي vb6-rocket
*************************************************
**************************************************
مصطفى زيداني
كلكم اصحاب واجب نفتخر بكم
بارك الله فيكما
-----
وعندي سؤال أخر -- معلش غلبتكم معي
وهو لو أريد أطبع جملة معينة بتنسيق معين بشرط ان لا يتجاوز حدود انا بحددها له ..
يعني لو قلنا بدنا نطبع ما بداخل الأداة Rich TextBox في سطرين في ورقة بمكان معين
لهم بداية ولهم نهاية
كيف ممكن أخليه لو وصل لنهاية السطر الأول .. مباشرة يطبع الكلام على السطر الثاني ..
علما بأنه ممكن يكون الخط 8 أو 15 أو حتى 60 يعني متغير ...
ارجوا ان اكون وضحت الطريقة
وبارك الله فيكم
جربى هذه الخصائص معا وأرجو ان تصلى الى مرادك فى النهاية :)
Printer.CurrentX = x Printer.CurrentY = y Printer.Height = h Printer.Width = w
1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول
2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت
3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه
4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته
5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام
6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد
7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك
8 - الابتسامة كلمة طيبة بغير حروف
9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها
10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا
طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها
من مواضيعى :
--------------
دروس تعلم كيف تصحح أخطائك بنفسك
برنامج الحائط النارى العربى ---- جديد
برنامج ساعة بالعقارب ------ جديد
غير نظرتك لل picturebox وانظر ماذا فعلت بها
حمل ملف فلاش على الفورم بكل سهولة
مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة
شكرا على ردك
بس كيف بهذه الجمل خليته ينزل إلى السطر الثاني مباشرة
بدون تتدخل
وكان شيء أنا بدي يطلع له رسالةة خطأ قبل أن يتجرأ ويطبع
فهمت عليه اخي
اشكرك مرة أخرى
انار الله طريقك
عموما اذا كان هناك عدة سطور في الاداة فإنه تلقائيا ستظهر على الورقة كما هي
*************************************************
**************************************************
مصطفى زيداني
اسف على التأخير :)
انا لم افهم المقصود بالضبط ! أرجو التوضيح أكثر :)
1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول
2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت
3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه
4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته
5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام
6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد
7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك
8 - الابتسامة كلمة طيبة بغير حروف
9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها
10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا
طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها
من مواضيعى :
--------------
دروس تعلم كيف تصحح أخطائك بنفسك
برنامج الحائط النارى العربى ---- جديد
برنامج ساعة بالعقارب ------ جديد
غير نظرتك لل picturebox وانظر ماذا فعلت بها
حمل ملف فلاش على الفورم بكل سهولة
مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة
وهو لو أريد أطبع جملة معينة داخل اداة الRich Textbox بشرط ان لا تتجاوز حدود انا بحددها له ..
يعني لو قلنا بدنا نطبع ما بداخل الأداة Rich TextBox في سطرين في ورقة بحجم معين و بمكان معين
فأريد عندما يختار مثلا الخط 12 مثلا يأتي الكلام على السطر ولو بده المستخدم يغير في التنسيق مثلا كبر الخط مثلا 60 وكان الخط تمام في الحدود السطر ..فإنه فعادي يطبع أما إذا مثلا تجاوز أكثر من الخط .. فإنه لا يطبع ويرسل له رسالة بأنه تجاوز المكان المطلوب ..
ارجوا أن أكون وضحت السؤال
أنار الله طريقكم للخير
هذا الموضوع مغلق.