[ تمت الإجابة ]طباعة الارقام داخل التكست بوكس

Dim i As Integer
If Val(Text1.Text) > Val(Text2.Text) Then
Exit Sub
Else
For i=Val(Text1.Text) To Val(Text2.Text)
Text3.Text=Text3.Text + Str(i)
Next
End If

أظن الكود بسيط، وهو يختبر القيمة في كل من Text1 و Text2 فإن كانت القيمة في الأول أكبر من الثاني لا يقوم بشيء، وإن لم تكن فإنه يقوم بطباعة كل الأعداد بين هذين العددين في الـText3.

وفقك الله

أختي إذا كنت تقصدين الطباعة على ورق، فالمنتدى مليء بالموضوعات التي تتحدث عن ذلك، ويمكنك مراجعة المواضيع التي تتحدث عن DataReport و CrystalReport وغيرها.

ملاحظة: أرجو تغيير الصورة الرمزية، لأنها تتعارض مع مبادئ المنتدى.

وفقك الله

شكـــــــــــــــــــــــــــــــراً لكم يا أعزائي و احبائي

مشكوور إخوي عبووود

وإن شاء الله راح أغير الصورة

aseel.w