[بو عبدالله]

@@أبورائد@@ كتب :السلام عليكم ورحمة الله وبركاته

تفضل التعيل

كود :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PrintDocument1.Print()
    End Sub
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim bm As New Bitmap(Me.DataGridView1.Width, Me.DataGridView1.Height)
        DataGridView1.DrawToBitmap(bm, New Rectangle(0, 0, Me.DataGridView1.Width, Me.DataGridView1.Height))
        e.Graphics.DrawImage(bm, 0, 0)

    End Sub
End Class

السلام عليكم ورحمة الله وبركاته

شكراًَ عزيزي بو رائد اولاًَ



جربته عزيزي لكن ما ضبط

يطبع فقط الجزأ المعروض ما يطبع جميع بيانات الداتا قريد