webBrowser1.DocumentText = "<html .....>";
webBrowser1.Print();
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()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 ClassDim ph As New PrintHelper
Dim MyHtml As String = "مصدر النص"
ph.print(MyHtml)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 SubFor Each ar As String In Printing.PrinterSettings.InstalledPrinters
Me.ComboBox1.Items.Add(ar)
Next
<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