گزارش در vb.net توسط کد نویسی

[jafari1]

با سلام خدمت دوستان عزیز
سوالی دارم - آیا در vb.net میتوان از طریق کد نویسی گزارش تهیه کرد ( مانند printer.print) در vb.6 که میتوان با آدرس سطر و ستون مقدار مورد نظر را چاپ کرد

[(سیدشریفی)]

Public Sub DrawStringFloatFormat(ByVal e As PaintEventArgs)
' Create string to draw.
Dim drawString As [String] = "Sample Text"
' Create font and brush.
Dim drawFont As New Font("Arial", 16)
Dim drawBrush As New SolidBrush(Color.Black)
' Create point for upper-left corner of drawing.
Dim x As Single = 150.0F
Dim y As Single = 50.0F
' Set format of string.
Dim drawFormat As New StringFormat
drawFormat.FormatFlags = StringFormatFlags.DirectionVertical
' Draw string to screen.
e.Graphics.DrawString(drawString, drawFont, drawBrush, _
x, y, drawFormat)
End Sub

::نوشتن::

[jafari1]

از توجه شما دوست عزیز در پاسخ به سوالم تشکر فراوان میکنم
در صورت امکان بفرمایید
1- این زیر برنامه را چگونه صدا کنیم (مثال بزنید)
2- چطور میشود چاپ را دوران داد
3- قبل از چاپ مشاهده کرد
با تشکر مجدد

[(سیدشریفی)]

برای صدا کردن این زیر برنامه اول یک کنترل PrintDocument و PrintDialog و PrintPreviewControl به فرمتان اضافه کنید بعد در رویداد PrintPage این کنترل کدهای زیر را بنویسید .

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
' Create string to draw.
Dim drawString As [String] = "Sample Text"
' Create font and brush.
Dim drawFont As New Font("Arial", 16)
Dim drawBrush As New SolidBrush(Color.Black)
' Create point for upper-left corner of drawing.
Dim x As Single = 150.0F
Dim y As Single = 50.0F
' Set format of string.
Dim drawFormat As New StringFormat
drawFormat.FormatFlags = StringFormatFlags.DirectionVertical
' Draw string to screen.
e.Graphics.DrawString(drawString, drawFont, drawBrush, x, y, drawFormat)
End Sub


بعد از آن در رویداد مثلا یک کلید کدهای زیر را بنویسید .

PrintDialog1.Document = PrintDocument1
If PrintDialog1.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then
PrintDocument1.Print()
End If


برای مشاهده قبل از چاپ نیز از کد زیر استفاده نمایید

PrintPreviewControl1.Document = PrintDocument1
PrintPreviewControl1.Show()

:sunglass:

[(سیدشریفی)]

یادم رفت بگم برای دوران من روش آن را نمیدانم ولی احتمالا از drawFormat میشود این کار را انجام داد .
:)

[jafari1]

از زحمات شما بسیار سپاسگذارم امیدوارم بتوانم جبران زحمت نمایم
با تشکر مجدد

[hosseinhossein]

من میخوام اطلاعاتی که تد بانکم که توسط vb.net نمایش داده میشن رو چاپ بگیرم خواهشا کمک کنید خیلی فوریه
اگه میشه جوابو به میلم بفرستید
فقط یه جوری بهم برسونید :افسرده:
hossein_ironi2000@yahoo.com

[linux]

من میخوام اطلاعاتی که تد بانکم که توسط vb.net نمایش داده میشن رو چاپ بگیرم خواهشا کمک کنید خیلی فوریه
اگه میشه جوابو به میلم بفرستید
فقط یه جوری بهم برسونید :افسرده:
hossein_ironi2000@yahoo.com
از کریستال ریپورت یا کنترل ریپورت ویور که همراه دات نت هست استفاده کنید.