دخول

***سعود*** · 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 

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

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	[سؤال] يوجد مثال\|كيف نعيد صياغة نص ليكون تاريخ مقبول	justforit	7	304	01-11-25, 10:54 PM آخر رد: justforit
	جهاز ارسال رسائل SMS من خلال برنامج فيجوال بيسك	جيولوجي مبتدئ	4	1,021	05-09-25, 12:37 PM آخر رد: جيولوجي مبتدئ
	ارسال رسالة الى تطبيق واتساب	nabil.1710	6	3,691	26-04-25, 11:21 AM آخر رد: hamedi2727
	[سؤال] عندي مشكلة في كود ارسال الاشعارات Push Notifacations	Mina Botros	0	268	30-01-25, 05:03 AM آخر رد: Mina Botros
	اريد جلب عدد محدد من السجلات من قاعدة بيانات اكسس الى الداتا قراد فيو يوجد مثال	khalidalwdi	2	667	12-11-24, 12:19 PM آخر رد: khalidalwdi
	هل يوجد كود لعدم تكرار نفس البيانات ببعض الحقول	F.H.M	19	905	15-09-24, 06:14 AM آخر رد: F.H.M
	يوجد خطاء فى كود البحث بواستطة الكمبوبوكس واجراء مخزن	new_programer	4	406	06-07-24, 12:05 AM آخر رد: Zuhare
	اعاني من بطئ بتحميل البيانات داخل الداتا جيرد يوجد لدي اكثر من 100 الف صف	RADOS	1	584	11-06-24, 07:42 PM آخر رد: غزة العزة
	يوجد لدي بطئ في تحميل الصور داخل FlowLayoutPanel1 يوجد لدي اكثر من 100 صنف	mohamedgadain61	1	455	02-06-24, 12:44 AM آخر رد: غزة العزة
	اعاني من بطئ بتحميل البيانات داخل الداتا جيرد يوجد لدي اكثر من 100 الف صف	moh61	4	702	27-05-24, 09:59 PM آخر رد: غزة العزة