Vb.net PrintWriter不打印任何内容

我正在用vb.net开发一个应用程序。输出形式如下所示。它有一个打印按钮来打印表单中的组件。我的意思是，当我点击打印按钮时，它应该打印整个表单。我在打印按钮上写了以下代码

PrintDialog1.Document = PrintDocument1
    Dim result As DialogResult = PrintDialog1.ShowDialog
    If (result = DialogResult.OK) Then
        PrintDocument1.Print()
End If

但问题是它不会打印表单。相反，它打印一个空白页

---

有人能说出我的代码中的错误是什么，以及如何像上图那样打印页面吗。提前感谢

最后，我找到了解决方案

使用PrintForm控件，而不是使用PrintDialog和PrintDocument

代码应该是

On Error GoTo handler
    PrintForm1.Print()
    Exit Sub
handler:
    MsgBox("error")

---

现在我的问题已经解决。

步骤1：将命名空间作为 导入系统。绘图。打印

步骤2：在VISUALBASIC POWERPACKS上，使用工具箱中的“PrintForm”工具

步骤3：创建一个按钮，双击它并复制以下代码

         PrintForm1.PrintAction = PrintAction.PrintToPreview
         PrintForm1.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.FullWindow)