كيف اقوم بطباعة نموج في الفيجوال بيسك 2003 ؟

اخي الفاضل

لكي تطبع الفورم بشكل عام وبدون استخدام الأاداة PrintForm الموجوده في مواقع مايكروسوفت

عليك بتنفيذ المثال التالي وهو سوف يعطيك فكره عن الأمر

افتح مشروع جديد ثم أضف اليه اي باتون مثلا وهذا الباتون سوف نستخدم في طباعة الفورم

ثم أضف للمشروع PrintDocument كونترول

الفكرة ببساطة أننا ناخذ صورة من الفورم ثم نغير ابعاد الصورة كما نحب عن طريق استخدام GetThumnailImage

ومن ثم نعطي ابعاد جديده للصورة ثم نقوم بطباعتها في الكود التالي

جعلت حجم الفورم 100 في 200 علي سبيل المثال

طبعا الكود مختلف قليلا عن نسخة 2002 لكن الفكرة واحده

مثلا في الحدث الخاص بالباتون Click تضيفي بعض الكود لطباعة الصوره

وفي الحدث PrintPage الخاص بالكونترول PrintDocument عليكي أن تضيفي الكود كما هو مكتوب تحت نفس الحدث

Public Class Form1

	 Dim bmp As Bitmap

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

		 Dim bmp_print As Bitmap

		 bmp_print = bmp.GetThumbnailImage(100, 200, Nothing, Nothing)

		 e.Graphics.DrawImage(bmp_print, 0, 0)

	 End Sub

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

		 Dim g As Graphics = Me.CreateGraphics()
		 Dim m_formSize As Size = Me.Size
		 bmp = New Bitmap(m_formSize.Width, m_formSize.Height, g)

		 Dim g_memory As Graphics = Graphics.FromImage(bmp)
		 g_memory.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, m_formSize)

		 PrintDocument1.Print()

	 End Sub

 End Class

بالتوفيق

أخوك عمر