تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] هل يوجد كود ارسال اي نص للطابعة فورا
#1
هل يوجد كود ارسال اي نص للطابعة فورا

اريد كود يكتب بحدث النقر لزر امر يقوم بطباعة صفحة html او خليط من Div and css
يعني صفحة منسقة اريد طبعتها بشكل فوري.
شكر الله لكم
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#2
استعمل الويب براوزر
PHP كود :
webBrowser1.DocumentText "<html .....>";
 
webBrowser1.Print(); 
الرد }}}}
تم الشكر بواسطة: سعود
#3
جربت الكود التالي ماضبط
كود :
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()
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#4
طيب الاداة هذي PrintDocument1 كيف نتعامل معها كيف نجعلها تطبع نص محدد لان حين اعطي print فقط تشتغل الطابعة وتسحب الورقة من دون اي شي
فكيف الامر
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#5
الامر فيه صعوبة اطلعت على امثلة فلم اجد ابسط مما ذكره الاخ الشاكي
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم ورحمة الله وبركاته

وجدت كلاس بموقع 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

****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة: سعود , الشاكي لله
#7
بارك الله فيك اخي
ايهما اسرع الكود الذي كتبت ام الكود التالي:
كود :
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
ايضا لو كانت الطابعة ليزر ليست ملونة ماهي الطريقة الافضل لبرمجة طباعتها
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#8
سرعتهم تقريبا واحدة مع اختلاف أن الأول يظهر شاشة صغيرة تبين إرسال الأمر للطابعة عكس الثاني لا يظهر شيء أثناء الطباعة

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

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

هذا الكود لاستعراض الطابعات المنصبة بالجهاز :
PHP كود :
For Each ar As String In Printing.PrinterSettings.InstalledPrinters
            Me
.ComboBox1.Items.Add(ar)
        
Next 

****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة: سعود , الشاكي لله
#9
لزيادة الخير بعد

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


PHP كود :
<DllImport("winspool.drv"CharSet := CharSet.AutoSetLastError := True)> _
Public Shared Function SetDefaultPrinter(Name As String) As Boolean
End 
Function

Private 
Sub button1_Click(sender As ObjectAs EventArgs)
    
SetDefaultPrinter("HP Deskjet D1500 series")
End Sub 
الرد }}}}
تم الشكر بواسطة: kslawy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يوجد ميزان مراجعة - من عندة يزودنا به السيد الجوهري 5 114 16-02-17, 05:43 PM
آخر رد: مساعدة
  [سؤال] هل يوجد طريقة للتنبيه قبل انتهاء التاريخ بيومين Marwan9990 22 605 08-02-17, 02:48 AM
آخر رد: أسامة السالمي
  [سؤال] يوجد لدي خطا في الكريستال ريبورت gmailali 5 97 28-01-17, 07:15 PM
آخر رد: gmailali
  مشكلة في فيجوال استوديو 2015 هل يوجد حل ؟ soper 7 153 24-01-17, 12:26 PM
آخر رد: soper
  [VB.NET] كود الفحص قبل الحفظ هل يوجد افضل منه ؟؟ 0theghost0 1 172 18-01-17, 11:43 AM
آخر رد: thevirus
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 15 584 12-01-17, 11:54 PM
آخر رد: Basil Abdallah
  هل يوجد مثال عن اقفال الفترات المالية السيد الجوهري 4 208 04-01-17, 05:18 PM
آخر رد: asemshahen
  [سؤال] كيف جمع عمود به قيمة فارغة يوجد مثال aboslah4u22 8 1,391 04-01-17, 12:48 PM
آخر رد: مساعدة
  ارسال ايميل في vb.net مساعدة nabilelk 2 127 10-12-16, 02:40 PM
آخر رد: hassan
  ارسال محتوى DataGridView1 الى ايميل nabil.1710 11 515 16-11-16, 09:05 PM
آخر رد: nabil.1710

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


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