مساء النور
سؤال مهم في GDI+
لدي مربع نص حملته بنص معين وليكن كا التالي :
Dim i As Integer
For i = 1 To 1000
Me.TextBox1.Text = (Me.TextBox1.Text & " " & " الفريق العربي للبرمجة" & " / " & i) & vbCrLf
Next
Me.TextBox1.SelectAll()
ثم قمت بطباعة محتوى مربع النص لـ PrintDocument1 كا التالي :
Dim gr As Graphics = e.Graphics
Dim myFont As New Font("Tahoma", 14)
Dim sf As New StringFormat
Dim text As String = texttbox1.text
sf.FormatFlags = StringFormatFlags.DirectionRightToLeft
gr.DrawString(text, myFont, Brushes.Black, _
New RectangleF(50, 50, 200, 200), sf)
gr.DrawRectangle(Pens.Black, New Rectangle(50, 50, 200, 200))
هو الآن يرسم نص جامعة هلا عرب في ورقة واحدة
السؤال أريد مساعدة في رسم 1000 سطر في مجموعة من الأوراق بتناسب ( بحيث اني أقدر ازيد من عدد السطور عند تشغيل البرنامج وعدد الورق يزيد آليا من دون ما ارجع لزيادة عدد الورق برمجيا )
مع خالص شكري