AccessTr.neT

(13/05/2013, 12:11)tefenninet yazdı: [ -> ]ekde örnek olarak bir uygulama ekledim yazdırıyorum ama tek satırda çıkıyor yazıcı ekranı

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        RichTextBox1.Select(RichTextBox1.TextLength, 0)

        RichTextBox1.AppendText("Rent A Car Şartları:Bir taraftan bu şartnamenin 1.sayfasında tanımlanan" & vbLf)



        RichTextBox1.Select(RichTextBox1.TextLength, 1)

        RichTextBox1.AppendText("aracı, kira ücreti karşılığında kullanmak üzere teslim alan KİRACI ile, diğer" & vbLf)



        RichTextBox1.Select(RichTextBox1.TextLength, 2)

        RichTextBox1.AppendText("taraftan bu aracı kiraya veren KİRALAYAN, araç kiralaması ile ilgili olarak" & vbLf)



        RichTextBox1.Select(RichTextBox1.TextLength, 3)

        RichTextBox1.AppendText("aşağıda açıklanan koşullarda anlaşmaya varmışlardır. 1-Kira dönemi - kira" & vbLf)



        RichTextBox1.Select(RichTextBox1.TextLength, 4)

        RichTextBox1.AppendText("süresi ve araç teslimi;Araç, KİRALAYAN tarafından KİRACI ya, tüm lastikleri," & vbLf)



        RichTextBox1.Select(RichTextBox1.TextLength, 5)

        RichTextBox1.AppendText("araca ait belgeleri,aksesuar ve teçhizatı ile birlikte, periyodik bakımları" & vbLf)



        RichTextBox1.Select(RichTextBox1.TextLength, 6)

        RichTextBox1.AppendText("yapılmış olarak teslim edilmiştir. KİRACI,söz konusu aracı, hem mekanik hem de" & vbLf)



        RichTextBox1.Select(RichTextBox1.TextLength, 7)

        RichTextBox1.AppendText("kaporta açısından sağlam ve iyi durumda teslim aldığını, araçta hiçbir hasar ya da" & vbLf)





    End Sub

Buna benzer bişey olabilir

merhaba
tek satır değilde satır sonunda alt satıra nasıl geçireceğiz.

(18/10/2014, 17:54)CELİKOGLU1 yazdı: [ -> ]merhaba
tek satır değilde satır sonunda alt satıra nasıl geçireceğiz.

RichTextBox1.SelectedText = "Birinci satır," & vbCrLf

RichTextBox1.SelectedText = "İkinci Satır," & vbCrLf