(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