دخول

***سعود*** · 08-04-14, 11:17 PM

هل يوجد كود ارسال اي نص للطابعة فورا

اريد كود يكتب بحدث النقر لزر امر يقوم بطباعة صفحة html او خليط من Div and css
يعني صفحة منسقة اريد طبعتها بشكل فوري.
شكر الله لكم

**الشاكي لله** · 08-04-14, 11:26 PM

استعمل الويب براوزر

PHP كود :

webBrowser1.DocumentText = "<html .....>";
 webBrowser1.Print(); 

***سعود*** · 08-04-14, 11:33 PM

جربت الكود التالي ماضبط

كود :

Dim wc As New WebClient

        wc.Encoding = Encoding.Default

        Dim wb As New WebBrowser

        wb.DocumentText = wc.DownloadString("http://vb4arb.com/vb/thread-2512.html")

        wb.Print()

***سعود*** · 08-04-14, 11:35 PM

طيب الاداة هذي PrintDocument1 كيف نتعامل معها كيف نجعلها تطبع نص محدد لان حين اعطي print فقط تشتغل الطابعة وتسحب الورقة من دون اي شي
فكيف الامر

***سعود*** · 09-04-14, 09:56 AM

الامر فيه صعوبة اطلعت على امثلة فلم اجد ابسط مما ذكره الاخ الشاكي

**kslawy** · 09-04-14, 10:22 AM

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

وجدت كلاس بموقع Codeproject عدلت فيه ليطبع مباشرة علي الطابعة الافتراضية (في الكود الأصلي لازم تحدد الطابعة بنفسك):

كود :

Public Class PrintHelper

    Friend TextToBePrinted As String

    Public Sub print(ByVal text As String)

        TextToBePrinted = text

        Dim prn As New Printing.PrintDocument

        Using (prn)

            AddHandler prn.PrintPage, _

               AddressOf Me.PrintPageHandler

            prn.Print()

            RemoveHandler prn.PrintPage, _

               AddressOf Me.PrintPageHandler

        End Using

    End Sub

    Private Sub PrintPageHandler(ByVal sender As Object, _

       ByVal args As Printing.PrintPageEventArgs)

        Dim myFont As New Font("Courier New", 9)

        args.Graphics.DrawString(TextToBePrinted, _

           New Font(myFont, FontStyle.Regular), _

           Brushes.Black, 50, 50)

    End Sub

End Class

طريقة الاستخدام :

كود :

Dim ph As New PrintHelper

        Dim MyHtml As String = "مصدر النص"

        ph.print(MyHtml)

http://www.codeproject.com/Questions/618...rom-vb-net

****
***
**
*

***سعود*** · 09-04-14, 10:52 AM

بارك الله فيك اخي
ايهما اسرع الكود الذي كتبت ام الكود التالي:

كود :

Private Sub DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)

        With DirectCast(sender, WebBrowser)

            If .ReadyState = WebBrowserReadyState.Complete Then

                .Print()

            End If

        End With

    End Sub

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

        Dim myWebBrowser As New WebBrowser

        AddHandler myWebBrowser.DocumentCompleted, AddressOf DocumentCompleted

        myWebBrowser.ScriptErrorsSuppressed = True

        myWebBrowser.Navigate(Application.StartupPath & "\a.htm")

    End Sub

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

**kslawy** · 10-04-14, 12:41 PM

سرعتهم تقريبا واحدة مع اختلاف أن الأول يظهر شاشة صغيرة تبين إرسال الأمر للطابعة عكس الثاني لا يظهر شيء أثناء الطباعة

بالنسبة للطابعة أي برنامج عندما يحاول الطباعة فإنه يبحث عن الطابعة الافتراضية المنصبة في الجهاز ، إذا ذهبت إلي قسم (الأجهزة والطابعات) من قائمة أبدا ستجد الطابعة الافتراضية وعليها علامة (صاح) خضراء .

يمكنك أن تغيير الطابعة برمجيا في الكود الأول لكن في الثاني لا أدري كيف

هذا الكود لاستعراض الطابعات المنصبة بالجهاز :

PHP كود :

For Each ar As String In Printing.PrinterSettings.InstalledPrinters
            Me.ComboBox1.Items.Add(ar)
        Next 

****
***
**
*

**الشاكي لله** · 12-04-14, 07:15 AM

لزيادة الخير بعد

هذا كود لإختيار طابعة افتراضية ( Default )

PHP كود :

<DllImport("winspool.drv", CharSet := CharSet.Auto, SetLastError := True)> _
Public Shared Function SetDefaultPrinter(Name As String) As Boolean
End Function

Private Sub button1_Click(sender As Object, e As EventArgs)
    SetDefaultPrinter("HP Deskjet D1500 series")
End Sub 

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	مرفق سورس كود ارسال ملفات الى الواتس بدون API	new_programer	2	91	17-04-24, 03:07 PM آخر رد: Taha Okla
	تعديل كود ارسال صورة الى الواتس	new_programer	2	172	21-03-24, 10:07 PM آخر رد: new_programer
	[VB.NET] ارسال رسالة واتساب	h2551996	0	203	07-01-24, 12:17 PM آخر رد: h2551996
	يوجد مشكلة عند تحميل البيانات فى كمبوبوكس داخل داتا جريد	new_programer	2	477	17-10-23, 06:51 PM آخر رد: new_programer
	اريد ارسال pdf عبر واتساب عن طريق ال API محتاج تعديل على الكود	moh61	0	537	03-08-23, 03:41 PM آخر رد: moh61
	[SQL] يوجد لدى خطأبرمجى ارجو المساعدة	عاصم النجار	6	507	26-07-23, 05:22 PM آخر رد: عبد الخالق
	طلب تصحيح كود ارسال رسائل SMS	assuhimi	3	766	09-07-23, 01:41 PM آخر رد: Shade0001
	يوجد خطاء عند تحميل الفورم - مثال شجرة الحسابات	new_programer	6	764	11-06-23, 06:47 PM آخر رد: new_programer
	يوجد خطاء عند فتح الفورم مثال شجرة الحسابات	new_programer	2	572	06-06-23, 02:41 PM آخر رد: new_programer
	[C#.NET] مشكلة في كود ارسال بريد الكتروني	ahmed_king2023	2	448	16-05-23, 07:47 PM آخر رد: ابو روضة