چاپ یک آرایه

[asilverisis]

سلام
چطور می تونم یک آرایه از اعداد رو چاپ کنم ؟

[asilverisis]

سلام
خواهشا خیلی ضروریه...

[مطهر]

نگفتی کجا می خوای چاپ کنی. حدس زدم حال و هوای قدیم زده به کلت می خوای مثل داس کار کنی

Public Sub Main()
Dim arr() As Int16 = {1, 2, 3, 4, 5}
For i As Int16 = 0 To arr.GetLength(0) - 1
Console.WriteLine(arr(i).ToString())
Next
Console.ReadKey()
End Sub

[asilverisis]

سلام
نه بابا
روی پرینتر
تا جایی که امکان داشته باشه بدون Crystal Report

ممنون

[مطهر]

Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
ppdPrintPreviewDialog1.Show()
End Sub
Dim ar() As Int16 = {1, 2, 3, 4, 5, 6, 7, 8, 9}
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
For i As Int16 = 0 To ar.GetLength(0) - 1
e.Graphics.DrawString(ar(i).ToString(), _
New Font("Tahoma", 10), Brushes.Black, 10, 10 + (i * 20))
Next
End Sub

[asilverisis]

سلام
:تشویق::تشویق::تشویق::تشویق::� �شویق::تشویق:
فوق العاده بود
فقط یه سوال
حالا اگر پرینت بشه با کیفیت عکس پرینت میشه یا تکست ؟

[مطهر]

پرینت مثل آینه
توصیه می کنم را PrintDocument بررسیش کنی.
کیفیت هم می تونی تنظیم کنی تنظیم مربوط به رزولیشن پرینتر

[asilverisis]

سلام
ممنون
و مرسی از توصیه تون چشم حتما