استفسار

وعليكم السلام ورحمة الله وبركاته

هل المقصود طباعة الفورم كصورة أم طباعتها كتقرير؟

لو المطلوب طباعتها كصورة فيرجى مراجعة هذا الموضوع

/index.ph...;hl=PrintWindow

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

يوجد قسم خاص بالتقارير يمكنك البحث فيه

شكراً لك اخي الكريم

لقد افادنى هذذا الكود في حفظ الفورم كصورة

SendKeys.SendWait("%({PRTSC})")

'حفظ الصورة

My.Computer.Clipboard.GetImage().Save("D:\test.jpg")

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

( عندما اغلق البرنامج ثم افتحه مرة اخرى واكتب مثلا في الفورم واغير فيه واريد ان احفظ صورة اخرى الاحظ ان الصورة تستبدل بالصورة الجديدة لان لها الاسم نفسه)

اقتباس

( عندما اغلق البرنامج ثم افتحه مرة اخرى واكتب مثلا في الفورم واغير فيه واريد ان احفظ صورة اخرى الاحظ ان الصورة تستبدل بالصورة الجديدة لان لها الاسم نفسه)

هذا لأنك تقوم بحفظ الصورة على نفس الملف "D:\test.jpg". يمكنك تسمية الصورة بتاريخ و وقت اللحظة التي التقطت فيها كما هو الحال في الهواتف الجوالة. جرب الكود التالي :

My.Computer.Clipboard.GetImage().Save(DateTime.Now.ToString("MMddyyyy_hhmmss") + ".jpg")

بهذه الطريقة تتمكن من ترتيب الصور حسب وقت أخدها على مستكشف ويندوز و غيره.

تحياتي...

السلام عليكــم ورحمـة الله وبركاتــه ،،

أخى الكريم الكود

My.Computer.Clipboard.GetImage().Save(DateTime.Now.ToString("MMddyyyy_hhmmss") + ".jpg")

اضفت له كود

SendKeys.SendWait("%({PRTSC})")

فاصبح

SendKeys.SendWait("%({PRTSC})")

My.Computer.Clipboard.GetImage().Save(DateTime.Now.ToString("MMddyyyy_hhmmss") + ".jpg")

لكن ايضا لم يعطى نتيجة

هل ممكن ان يفتح لى مربع حوار احدد من خلاله مكان الحفظ وتسمية للصورة

رعاكم الله

و عليكم السلام و رحمة الله تعالى و بركاته...

الكود حتما أعطى النتيجة و لكن الصور ستجدها داخل المجلد Bin\Debug لمشروعك. نسيت أن أحدد حرف وحدة التخزين كما حددتها أنت على الكود الذي أرفقت. جرب هذا الكود الذي سيظع الصور على جذر وحدة التخزين D :

SendKeys.SendWait("%({PRTSC})")
My.Computer.Clipboard.GetImage().Save("D:\" + DateTime.Now.ToString("MMddyyyy_hhmmss") + ".jpg")

يمكنك تحديد مسار المجلد الذي سيستقبل الصور مكان "D:\"

تحياتي...

[b]أنار الله بصيرتك

فعلا أخى الكريم وجدت عدة صور في داخل المجلد Bin\Debug

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

كيف احفظ الصورة بواسطة مربع الحوار حفظ باسم بحيث احدد مكان الحفظ واسم الصورة

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

Dim Save As New SaveFileDialog

Save.Title = "حفظ الصوره"

Save.Filter = "( *.jpg )ملفات نصية |*.jpg|جميع الملفات|*.*"

If Save.ShowDialog = Windows.Forms.DialogResult.OK Then

My.Computer.FileSystem.WriteAllimage(Save.FileName, _

Me.الاداه, False)

End If

Save.Dispose()

Save = Nothing

end sub

معلش مش عرف اكتب على محرر النصوص

يمكن لانى استخدم المتصفح القديم 5

المهم انا ارفقت الكود فى تكست

انا مجربه شغال تمام

ياريت لو فيه اى خطأ يعدله الساده المشرفين على مشروعك

حفظ باسم.txt

اخى الكريم الكود خاطئ