vb.net richtextbox table print

您可以使用以下代码将 RichTextBox 中的表格打印出来：

Dim tableStart As Integer = richTextBox1.Find("<table>")
Dim tableEnd As Integer = richTextBox1.Find("</table>")

If tableStart >= 0 AndAlso tableEnd >= 0 Then
    Dim tableText As String = richTextBox1.Text.Substring(tableStart, tableEnd - tableStart + 8)
    Dim tableDoc As New WebBrowser()
    tableDoc.DocumentText = tableText
    AddHandler tableDoc.DocumentCompleted, Sub(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
                                                DirectCast(sender, WebBrowser).Print()
                                            End Sub
Else
    MessageBox.Show("No table found in the RichTextBox.")
End If

此代码将在 RichTextBox 中查找包含 `<table>` 和 `</table>` 标签的文本，并将其加载到 WebBrowser 控件中，然后使用 Print 方法打印该控件的内容。如果 RichTextBox 中没有找到表格，则会显示一条消息框。