bia2joker
سه شنبه 21 تیر 1390, 18:29 عصر
سلام
من از دستور زیر جهت چاپ فرم استفاده می کنم
Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim b As New Bitmap(Form2.Width, Form2.Height)
Form2.DrawToBitmap(b, New Rectangle(0, 0, Form2.Width, Form2.Height))
Form2.DrawToBitmap(b, New Rectangle(0, 0, Form2.Width, Form2.Height))
e.Graphics.DrawImage(b, New Point(0, 0))
End Sub
تنها بدی استفاده از این روش کیفیت پایین چاپ هستش
آیا راهی برای افزایش کیفیت وجود ندارد؟
من از دستور زیر جهت چاپ فرم استفاده می کنم
Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim b As New Bitmap(Form2.Width, Form2.Height)
Form2.DrawToBitmap(b, New Rectangle(0, 0, Form2.Width, Form2.Height))
Form2.DrawToBitmap(b, New Rectangle(0, 0, Form2.Width, Form2.Height))
e.Graphics.DrawImage(b, New Point(0, 0))
End Sub
تنها بدی استفاده از این روش کیفیت پایین چاپ هستش
آیا راهی برای افزایش کیفیت وجود ندارد؟