[kslawy]

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

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

****
***
**
*