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

الطباعه باستخدام الفيجول

مغلق
بدأه المثقفه في 5 مايو 2007 · 7 رد · 749 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

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

وكل منهما موجود ب ritch box

وكيف أفصل بينهم بخط بواسطه draw line

وذلك باستخدام فيجول بيسك 2005

أتمنى ان اجد الحل والتفاعل لديكم

مع خالص الشكر ...

#2

السلام عليكم ورحمة الله وبركاته

ارجو التوضيح ,,,,

يعني النصين موجودين في الـ ...... تحت بعض ,,,

تريدين اخذهما ومن ثم طباعتهما على الفورم كل احداهما في سطر ويفصلهم خط ؟

بالتوفيق ,,,,

A7med_prof

اقتباس

آسف الدخول متقطع هذه القتره

اقتباس

[يمين]

.[/يمين]

A7med_prof-4-2007.jpg

اخر مواضيعي 2007

االمثال مطبق على موقع بورصه سعودي

.

.

مواضيع مهمه ومطلوبه بكثره VB6

.

بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,

.

أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .

.

</
#3

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

عفوا اخي ..

انا اقصد ان النص الاول موجود ب rich box والنص الثاني موجود ب rich box اخر

وانا اريد ان اطبع النص الاول ثم ارسم خط ثم اطبع النص الثاني لاني انا عملت الطباعه لكن تداخل النصين مع بعضهم

والطباعه ليست على الفورم وانما طباعه على الورقه >>>>>الطباعه العاديه

أتمنى ان اكون وضحت المقصود ...

وشكرا لك على تجاوبك

#4

اوك معلش سؤال تاني

ما الكود المستخد في الطباعه ؟

اقتباس

آسف الدخول متقطع هذه القتره

اقتباس

[يمين]

.[/يمين]

A7med_prof-4-2007.jpg

اخر مواضيعي 2007

االمثال مطبق على موقع بورصه سعودي

.

.

مواضيع مهمه ومطلوبه بكثره VB6

.

بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,

.

أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .

.

</
#5

هذا هو الكود

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles mydocument.PrintPage

Dim printfont As New Font("arial", 12, FontStyle.Regular)

Dim lineheigh As Single = printfont.GetHeight + 2

e.Graphics.DrawString(frmchild2.rtbarabic.Text, printfont, Brushes.Black, e.MarginBounds.X + 10 _

, e.MarginBounds.Y + lineheigh)

e.Graphics.DrawString(frmchild2.rtbenglish.Text, printfont, Brushes.Black, e.MarginBounds.X + 10 _

, e.MarginBounds.Y + CInt(frmchild2.rtbarabic.Width))

End Sub

#6

السلام عليكم ورحمة الله وبركاته

اركو ان الكود يعمل معك بشكل صحيح الان ,,,,

بالتوفيق ,,,,

	Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles mydocument.PrintPage
		Dim printfont As New Font("arial", 12, FontStyle.Regular)
		Dim lineheigh As Single = printfont.GetHeight + 2

		e.Graphics.DrawString(frmchild2.rtbarabic.Text & vbCrLf, printfont, Brushes.Black, e.MarginBounds.X + 10 _
		, e.MarginBounds.Y + lineheigh)
		frmchild2.r(
		e.Graphics.DrawLine()

		e.Graphics.DrawString(frmchild2.rtbenglish.Text, printfont, Brushes.Black, e.MarginBounds.X + 10 _
		, e.MarginBounds.Y + CInt(frmchild2.rtbarabic.Width))

	End Sub

A7med_prof

اقتباس

آسف الدخول متقطع هذه القتره

اقتباس

[يمين]

.[/يمين]

A7med_prof-4-2007.jpg

اخر مواضيعي 2007

االمثال مطبق على موقع بورصه سعودي

.

.

مواضيع مهمه ومطلوبه بكثره VB6

.

بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,

.

أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .

.

</
#7

أشكر لك تفاعلك لكن المشكله ليست بطباعه السطر الفاصل

وانما عند طباعه هذين النصين تكون النتيجه انهما يندمجان في بعضهما

فكيف اتحكم في طباعه النص الثاني بعد طباعه النص الاول بحيث انه لايندمج معه

وشكر ا جزيلا لك ..أرجوكم أريد الحل ؟؟

#8

شوف اعتقد انك تروح للحقل وتختار فورمات وبعدين تعلم على كلمة can grow

صح يا اخي A7med_prof

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

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