تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طباعة ملف word او text او حتى صورة
#1
السلام عليكم ورحمة الله وبركاتة .....
وبعد شهر مبارك اعادة الله علينا وعليكم بالخير والبركات
.

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

وشكرا للجميع مقدما 
الرد
تم الشكر بواسطة: ابراهيم ايبو
#2
انشي مشروع جديد
انتقل لمحرر الشفرات اكتب الشفرة التالية:
PHP كود :
Dim WithEvents PD As New Printing.PrintDocument 

اختر الاداة الجديدة من اعلى المحرر ثم الحدث كما المناسب او انسخ الشفرة التالية مباشرة:

PHP كود :
Private Sub PD_PrintPage(ByVal sender As ObjectByVal e As System.Drawing.Printing.PrintPageEventArgsHandles PD.PrintPage
        e
.Graphics.DrawImage(PictureBox1.Imagee.MarginBounds.Lefte.MarginBounds.Top)
    
End Sub 

ثم انقر الزر و اكتب الشفرة التنفيذية التالية :
PHP كود :
Private Sub Button1_Click(ByVal sender As ObjectByVal e As System.EventArgsHandles Button1.Click
        PD
.Print()
    
End Sub 

قبل كل هذا اضف زر و اداة عرض الصور (PictureBox1)
هَٰٓؤُلَآءِ قَوْمُنَا ٱتَّخَذُوا۟ مِن دُونِهِۦٓ ءَالِهَةً لَّوْلَا يَأْتُونَ عَلَيْهِم بِسُلْطَٰنٍۭ بَيِّنٍ فَمَنْ أَظْلَمُ مِمَّنِ ٱفْتَرَىٰ عَلَى ٱللَّهِ كَذِبًا
الرد
تم الشكر بواسطة: ابراهيم ايبو , حريف برمجة
#3
على مايبدو اني لم اصغ السؤال بالشكل الصحيح 

انا اريد ان يكون مسار الملف ثابت 
 
مثال 
كود :
   Dim newfile As String = Application.StartupPath & "\Sanad22.doc"
الرد
تم الشكر بواسطة: ابراهيم ايبو
#4
وعليكم السلام ورحمة الله وبركاته

استخدم الكود التالى
كود :
       Dim info As ProcessStartInfo = New ProcessStartInfo("ضع هنا مسار الملف المطلوب طباعته")
       info.Verb = "Print"
       info.CreateNoWindow = True
       info.WindowStyle = ProcessWindowStyle.Hidden
       Process.Start(info)

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
#5
شكرا اخي الجوكر على المساعدة 

والله يكتبها في ميزان حسناتك

ويسقيك من حوض نبينا وحبيبنا محمد 

صلى الله علية وسلم
الرد
تم الشكر بواسطة: حريف برمجة , elgokr
#6
الشكر لله والحمد لله
والحمد لله على كل حال

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: حريف برمجة , حريف برمجة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف يتم حفظ صورة في datagridiew غير متصل بقاعدة البيانات rochdi191 5 147 14-05-20, 08:30 PM
آخر رد: rochdi191
  [سؤال] عايز اجلب قاعدة بيانات سيكوال واعرضها في text عاصم النجار 1 103 05-05-20, 02:11 AM
آخر رد: ابو ليلى
  [سؤال] جلب اسم قاعدة البيانات من نوع اكسس في text عاصم النجار 10 261 04-05-20, 10:24 PM
آخر رد: عاصم النجار
  [VB.NET] اضافة صورة فارغة لقاعدة البيانات محمد اسماعيل 8 828 02-05-20, 11:32 AM
آخر رد: عبدالله الدوسري
  [VB.NET] طباعة فاتورة كريستال محمد القطيبي 0 54 01-05-20, 01:59 AM
آخر رد: محمد القطيبي
  [سؤال] سحب صورة من السكانر ؟ Mido9 12 10,136 22-04-20, 12:45 AM
آخر رد: Narutogoo
  تقسيم text الى عدة listbox rabeh.ram 5 1,224 19-04-20, 12:18 PM
آخر رد: Ali Edal 2022
  [VB.NET] text object in crystal report tahaayyoub 0 64 18-04-20, 03:03 AM
آخر رد: tahaayyoub
  [سؤال] بخصوص WordAddIn: أين يتم وضع الإضافة المبرمجة حتى تظهر في برنامج Word؟ السندبااد 2 130 17-04-20, 06:26 PM
آخر رد: ابراهيم ايبو
  طباعة تقرير كرستال DOX.1 4 198 13-04-20, 01:17 PM
آخر رد: DOX.1

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم