طباعة كل ما على الفورم

أكتب هذا الكود في المكان المناسب

form1.print

مع تغير أسم الفورم إلي الفورم المناسب

أي خدمة

ياشيخ هذه في الفيجوال بيسك 6 أما بالدوت نت ما اشتغلت معي

ارجوا الإفادة وجزاكم الله خيرا

أرجوا من كان يعرف كيف نعملها في الدوت نت فليخبرني

وجزاكم الله خيرا

ايش يا شباب ما في احد يفيدنا

أخوي أيمن

الحل هو

تصرح في بداية الفورم بالكود التالي

Private Sub CaptureScreen()

Dim mygraphics As Graphics = Me.CreateGraphics()

Dim s As Size = Me.Size

memoryImage = New Bitmap(s.Width, s.Height, mygraphics)

Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)

Dim dc1 As IntPtr = mygraphics.GetHdc

Dim dc2 As IntPtr = memoryGraphics.GetHdc

BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, _

Me.ClientRectangle.Height, dc1, 0, 0, 13369376)

mygraphics.ReleaseHdc(dc1)

memoryGraphics.ReleaseHdc(dc2)

بعدين تضع عنصر تحكم وهو Printdocument

وتكتب داخله

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

بعدين

تضع عنصر تحكم واسمه Print previw

وفي خصائصه تكتب عند Document=printdocument

بعدين تضع زر للطباعة وتكتي داخله

CaptureScreen()

PrintPreviewDialog1.Document = PrintDocument1

PrintPreviewDialog1.Show()

وبالتوفيق

أخوك أمير

جزاك الله خير والف شكر ...

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