Vb.net 使文本框打印保持在纸张边距中？（带页面设置）

我在打印对话框和页面的设置上遇到了很多问题，无法一起打印文本框中的文本，我花了几个小时做研究，尝试了所有的事情，我无法让它工作，有人能帮我吗，给我从文本框中打印文档的代码，并将页面设置为可以像在记事本中一样使用它

这是我不起作用的代码

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If (PrintDialog1.ShowDialog() = DialogResult.OK) Then
        PrintDocument1.Print()
    End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    PageSetupDialog1.ShowDialog()
    PrintDocument1.DefaultPageSettings = PageSetupDialog1.PageSettings
End Sub

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    Dim textArea As New Rectangle()
    e.Graphics.DrawString(TextBox1.Text, TextBox1.Font, Brushes.Black, 100, 100)
End Sub

谢谢

如果您使用打印文档，您可以将文本绘制为矩形，并且它将自然换行。您还可以使用对象获取其他格式帮助

Private Sub printDoc_PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs) Handles printDoc.PrintPage
  Dim textArea As New Rectangle(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)
  e.Graphics.DrawString(textbox1.Text, New Font("Consolas", 10), Brushes.Navy, textArea)
 'other stuff
End Sub

---

我已经试过了，你能帮我设置一下我搞砸的代码吗，还有页面设置，谢谢。我完全错了，基本上有一个文本框，打印设置对话框，打印文档打印对话框，和两个按钮，一个是打印，一个是设置，你能帮我从头开始设置它吗？来吧，至少展示一下你的尝试，或者感觉我们只是你的代码编写服务-我们不是。好的，我添加了我的尝试，看看我是如何定义矩形的。还要注意我们在DrawString方法中使用的重载-它将矩形作为参数，以便知道打印到哪里。