0

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

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

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

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

4

2 回答 2

0

最后，我找到了解决方案

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

并且代码应该是

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

现在我的问题已经解决了。

于 2013-02-12T09:52:14.820 回答
0

STEP1：将您的命名空间导入为 Imports System.Drawing.Printing

第 2 步：在 VISUALBASIC POWERPACKS 并使用 ToolBox 中的“PrintForm”工具。

STEP3：创建一个按钮并双击它并复制以下代码

         PrintForm1.PrintAction = PrintAction.PrintToPreview
         PrintForm1.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.FullWindow)
于 2013-03-13T16:43:45.960 回答