تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارسال محتوى DataGridView1 الى ايميل nabil.1710 11 355 16-11-16, 09:05 PM
آخر رد: nabil.1710
  مساعدة فى برنامج ارسال رسائل sms للموبايل nabil.1710 2 73 13-11-16, 12:00 PM
آخر رد: أبوبكر سويدان
Lightbulb [سؤال] هل يوجد اداة لاستعراض الانترنت غير webcontrol elhon.tec 1 153 09-11-16, 03:24 PM
آخر رد: elhon.tec
  [VB.NET] كود الفحص قبل الحفظ هل يوجد افضل منه ؟؟ 0theghost0 0 71 25-10-16, 07:11 PM
آخر رد: 0theghost0
  كيف استخدم شاشة انتظار مع ارسال ايميل samira20 1 94 23-10-16, 11:16 PM
آخر رد: ابراهيم النعيمي
  ارسال بيانات DataGridView الى report Viewer. Rabeea Qbaha 6 193 23-10-16, 06:16 PM
آخر رد: Rabeea Qbaha
  مشكلة في كود ارسال ايميل من جيميل samira20 9 196 17-10-16, 10:32 AM
آخر رد: samira20
  [VB.NET] هل يوجد كود لقراءة ملفات bin ?? 0theghost0 1 68 05-10-16, 08:51 PM
آخر رد: محمد كريّم
  ارسال الى webrowser صبري زينوبي 3 188 29-09-16, 02:57 PM
آخر رد: صبري زينوبي
  لا يمكن ارسال رسالة باللغة العربية samer_hameed 5 148 15-09-16, 03:50 PM
آخر رد: samer_hameed

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


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