مشکل در پرینت کردن فورم... [بایگانی]

rezarko

پنج شنبه 03 فروردین 1391, 01:36 صبح

سلام . من برای پرینت کردن فورم از اکد زیر استفاده میکنم اما می خوام حاشیه های اطراف فورم پرینت نشن باید چیکار کنم؟
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PrintDialog1.ShowDialog()
PrintDocument1.Print()
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(Me.Width, Me.Height)
Me.DrawToBitmap(b, New Rectangle(0, 0, Me.Width , Me.Height))
e.Graphics.DrawImage(b, New Point(0, 0))
End Sub

ROSTAM2

پنج شنبه 03 فروردین 1391, 02:08 صبح

سلام دوست گرامی
چرا به جای استفاده از صفحه فرم برای پرینت از یک Panel استفاده نمی کنی؟

rezarko

پنج شنبه 03 فروردین 1391, 02:54 صبح

دوست عزیز میشه یه مثال بزنید؟

ROSTAM2

پنج شنبه 03 فروردین 1391, 09:08 صبح

یک شیء Panel به فرم اضافه کن اشیائی که می خوای اونها توی چاپ در بیان رو توی Panel قرار بده
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PrintDialog1.ShowDialog()
PrintDocument1.Print()
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(Me.Panel1.Width, Me.Panel1.Height)
Me.Panel1.DrawToBitmap(b, New Rectangle(0, 0, Me.Panel1.Width, Me.Panel1.Height))
e.Graphics.DrawImage(b, New Point(0, 0))
End Sub

فرید نجفلو

پنج شنبه 03 فروردین 1391, 11:21 صبح

شما اگه می خواید با این روش کار کنید می تونید از PrintForm hsjthni ;kdn!
از طریق Toolbox و تب Visual Basic PowerPacks می تونید به فرم اضافش کنید خیلی هم راحته!

البته طبق آخرین اطلاعات (که اگه بگردید تو تالار هم پیدا میشه) کیفیت چاپ در این روش پایینه

nowar1352

چهارشنبه 05 مهر 1391, 00:59 صبح

یک شیء Panel به فرم اضافه کن اشیائی که می خوای اونها توی چاپ در بیان رو توی Panel قرار بده
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PrintDialog1.ShowDialog()
PrintDocument1.Print()
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(Me.Panel1.Width, Me.Panel1.Height)
Me.Panel1.DrawToBitmap(b, New Rectangle(0, 0, Me.Panel1.Width, Me.Panel1.Height))
e.Graphics.DrawImage(b, New Point(0, 0))
End Sub
دوستان عزیز و گرانقدر لظفا راجع به این کدها بیشتر توضیح میدی ؟ من تا حدودی گرافیک رو بلدم در حد اشکال هندسی ساده ولی از این کد ها سردرنمارم
خیلی ببخشید