كيف يمكن عمل الprint Daialog

هذا كود مشروح لكيفية إضهار نافذة اختيار الطابعة و تحديد خصائصها :

Imports System.Drawing.Printing

Public Class Form1

	Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click
		' إنشاء الكائن المسير لنافذة الطبع
		Dim pdlg As New PrintDialog()
		' إضهار النافذة
		If pdlg.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then ' إذا نقر المستخدم على الزر OK
			' إنشاء الكائن الذي على سطحه سيتم رسم محتوى الصفحة
			Dim pdoc As New PrintDocument()
			' تحديد الطابعة في التي اختارها المستخدم
			pdoc.PrinterSettings = pdlg.PrinterSettings
			' تحديد الدالة المشتركة في الحدث Print
			AddHandler pdoc.PrintPage, AddressOf Print_Page
			' طبع صفحة تجريبية
			pdoc.Print()
		End If
	End Sub

	' الدالة التي سيتم المناداة عليها لطبع الصفحة
	Private Sub Print_Page(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
		ev.Graphics.DrawString("Teste", Me.Font, Brushes.AliceBlue, 0, 0)
	End Sub
End Class

تحياتي...