مساعده من اهل الخبره حول طباعه محتويات ال Text Box

قم بزيادة الأداة PrintDialog من نافذة الأدوات إلى النموذج.

قم بزيادة الأداة PrintDocument من نافذة الأدوات إلى النمودج.

معاينة الطابعة : لم أفهم المعنى

الزر الثاني : قم بزيادة اشتراك في الحدث Click و قم بزيادة الكود التالي على الدالة المشتركة :

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		If PrintDialog1.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
			PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
		End If
	End Sub

بالنسبة لعملية الطباعة, قم بزيادة اشتراك في الحدث PrintPage للأداة PrintDocument وفي الدالة المشتركة, استعمل الدالة e.Graphics.DrawString لرسم النص في المكان الصحيح ليتماشى مع مكانه على الفاتورة. مثال :

	Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
		' المكان المفترض للنص المطبوع
		Dim pt As New Point(25, 150)
		' رسم النص على الطابعة
		e.Graphics.DrawString("رقم الفاتورة", Me.Font, Brushes.Black, pt.X, pt.Y)
	End Sub

في الأخير و على الدالة المشتركة في الحدث Click للزر الثالث, قم بتشغيل عملية الطباعة :

	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
		PrintDocument1.Print()
	End Sub

تحياتي...