[سعود]

بارك الله فيك اخي
ايهما اسرع الكود الذي كتبت ام الكود التالي:

كود :

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

ايضا لو كانت الطابعة ليزر ليست ملونة ماهي الطريقة الافضل لبرمجة طباعتها