كيف يتم طباعة الصورة الحالية الموجودة في Picturebox

وجدتها

 Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

		Dim imgX, imgY As Integer

		Dim M_img As New Bitmap(PictureBoxView.Image)
		e.Graphics.DrawImage(M_img, New Point(imgX, imgY))

ُEnd Sub

السلام عليكم:

انظر:

/index.php?showtopic=196363

تفضل

غير القيم حسب ما تحتاجها

PrintDocument1.OriginAtMargins = True

e.Graphics.DrawLine(Pens.Black, 0, 45, Me.Width, 45)

e.Graphics.DrawImage(PictureBox7.Image, e.MarginBounds.X + 125, e.MarginBounds.Y + 30, 500, 700)

e.HasMorePages = False