从vb.net打印网页

Imports System.Drawing.Printing

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 加载网页
        WebBrowser1.Navigate("https://www.example.com")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        ' 网页加载完成后，打印
        WebBrowser1.Print()
    End Sub

    Private Sub WebBrowser1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles WebBrowser1.PrintPage
        ' 打印页面内容
        WebBrowser1.PrintAction = PrintAction.PrintToPrinter
        e.Graphics.DrawImage(WebBrowser1.Document.Body.ScrollRectangle.Width, WebBrowser1.Document.Body.ScrollRectangle.Height)
        e.HasMorePages = False
    End Sub
End Class