طباعة Panel1 بما يحتويه من Label1 ..

السلام عليكم

كيف يمكنني ان اطبع Panel1 .. بما يحتويه من Label1 ..

هل هذا الكود مناسب و اذا كان كذلك من يعدله لي ... و بارك الله في الجميع

:unsure:

Imports System.Drawing.Printing

Public Class Form1


	Private Sub PrintText(ByVal sender As Object, _
	  ByVal ev As PrintPageEventArgs)

		ev.Graphics.DrawString(text1.Text, New Font("Arial", _
		  11, FontStyle.Regular), Brushes.Black, 120, 120)

		ev.HasMorePages = False
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

		Try

			Dim PrintDoc As New PrintDocument
			AddHandler PrintDoc.PrintPage, AddressOf Me.PrintText
			PrintDoc.Print()
		Catch ex As Exception
			MessageBox.Show("Sorry--there is a problem printing", _
			  ex.ToString())
		End Try
	End Sub

End Class