[يونس علي]

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

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

.

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

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

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

[alsouf]

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

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"

[elgokr]

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

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

كود :

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

تحياتى لك

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

[يونس علي]

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

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

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

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

[elgokr]

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

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

تحياتى لك

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