09-04-14, 10:22 AM
السلام عليكم ورحمة الله وبركاته
وجدت كلاس بموقع Codeproject عدلت فيه ليطبع مباشرة علي الطابعة الافتراضية (في الكود الأصلي لازم تحدد الطابعة بنفسك):
طريقة الاستخدام :
http://www.codeproject.com/Questions/618...rom-vb-net
****
***
**
*
وجدت كلاس بموقع 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
****
***
**
*

