:11:می خواهم از کل اطلاعاتی که در فرم دارم پرینت بگیرم
اگه بشه میخوام پشت رو چاپ بشه
اگه کمک کنین ممنون میشم
:19:
Printable View
:11:می خواهم از کل اطلاعاتی که در فرم دارم پرینت بگیرم
اگه بشه میخوام پشت رو چاپ بشه
اگه کمک کنین ممنون میشم
:19:
به فرم یک PrintDialog و یک PrintDocument اضافه کن.
دو Button هم اضافه کن.
یکی از باتونها برای چاپ و دیگری برای پیش نمایش چاپ خواهد بود.
کدهای زیر رو در کد ادیتور بنویس:
کد: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
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim PrintPreviewDialog1 As New PrintPreviewDialog
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.Show()
End Sub
موفق باشید.
با تشکر از دوست عزیزمان برای کد برنامه باید بگم که خصوصیات print dialog هم باید true بشن تا بتونی تنظیمات پرینتر رو در حین چاپ عوض کنی
ممنون از برنامتون به درد منم خورد.
مرسیییییییییییییییی