منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

وبعد شهر مبارك اعادة الله علينا وعليكم بالخير والبركات

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

ايا كان نوع الملف موجود على الجهاز

وشكرا للجميع مقدما

انشي مشروع جديد
انتقل لمحرر الشفرات اكتب الشفرة التالية:

PHP كود :

Dim WithEvents PD As New Printing.PrintDocument 

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

PHP كود :

Private Sub PD_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PD.PrintPage
        e.Graphics.DrawImage(PictureBox1.Image, e.MarginBounds.Left, e.MarginBounds.Top)
    End Sub 

ثم انقر الزر و اكتب الشفرة التنفيذية التالية :

PHP كود :

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

قبل كل هذا اضف زر و اداة عرض الصور (PictureBox1)

على مايبدو اني لم اصغ السؤال بالشكل الصحيح

انا اريد ان يكون مسار الملف ثابت

مثال

كود :

   Dim newfile As String = Application.StartupPath & "\Sanad22.doc"

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

استخدم الكود التالى

كود :

       Dim info As ProcessStartInfo = New ProcessStartInfo("ضع هنا مسار الملف المطلوب طباعته")

        info.Verb = "Print"

        info.CreateNoWindow = True

        info.WindowStyle = ProcessWindowStyle.Hidden

        Process.Start(info)

تحياتى لك

وتمنياتى لك التوفيق

شكرا اخي الجوكر على المساعدة

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

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

صلى الله علية وسلم

الشكر لله والحمد لله

والحمد لله على كل حال

تحياتى لك

وتمنياتى لك التوفيق

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

يونس علي

alsouf

يونس علي

elgokr

يونس علي

elgokr