السلام عليكم
كيف يمكنني طباعة نصين تحت بعض وانا لااعرف ماهو طول كلا النصين فالمستخدم هو الذي يدخلهم
وكل منهما موجود ب ritch box
وكيف أفصل بينهم بخط بواسطه draw line
وذلك باستخدام فيجول بيسك 2005
أتمنى ان اجد الحل والتفاعل لديكم
مع خالص الشكر ...
السلام عليكم
كيف يمكنني طباعة نصين تحت بعض وانا لااعرف ماهو طول كلا النصين فالمستخدم هو الذي يدخلهم
وكل منهما موجود ب ritch box
وكيف أفصل بينهم بخط بواسطه draw line
وذلك باستخدام فيجول بيسك 2005
أتمنى ان اجد الحل والتفاعل لديكم
مع خالص الشكر ...
السلام عليكم ورحمة الله وبركاته
ارجو التوضيح ,,,,
يعني النصين موجودين في الـ ...... تحت بعض ,,,
تريدين اخذهما ومن ثم طباعتهما على الفورم كل احداهما في سطر ويفصلهم خط ؟
بالتوفيق ,,,,
A7med_prof
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
السلام عليكم ..
عفوا اخي ..
انا اقصد ان النص الاول موجود ب rich box والنص الثاني موجود ب rich box اخر
وانا اريد ان اطبع النص الاول ثم ارسم خط ثم اطبع النص الثاني لاني انا عملت الطباعه لكن تداخل النصين مع بعضهم
والطباعه ليست على الفورم وانما طباعه على الورقه >>>>>الطباعه العاديه
أتمنى ان اكون وضحت المقصود ...
وشكرا لك على تجاوبك
اوك معلش سؤال تاني
ما الكود المستخد في الطباعه ؟
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
هذا هو الكود
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
السلام عليكم ورحمة الله وبركاته
اركو ان الكود يعمل معك بشكل صحيح الان ,,,,
بالتوفيق ,,,,
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 SubA7med_prof
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
أشكر لك تفاعلك لكن المشكله ليست بطباعه السطر الفاصل
وانما عند طباعه هذين النصين تكون النتيجه انهما يندمجان في بعضهما
فكيف اتحكم في طباعه النص الثاني بعد طباعه النص الاول بحيث انه لايندمج معه
وشكر ا جزيلا لك ..أرجوكم أريد الحل ؟؟
شوف اعتقد انك تروح للحقل وتختار فورمات وبعدين تعلم على كلمة can grow
صح يا اخي A7med_prof
هذا الموضوع مغلق.