VB.NET打印对话框

2025年3月17日 | 阅读 3 分钟

它用于在应用程序中显示PrintDialog框。这是一个重要的对话框控件，允许用户选择文档的部分内容，然后选择打印机以从Windows窗体应用程序打印页面。此外，用户可以在PrintDialog框中指定要打印的页面范围、要使用的打印机、要打印的份数。并且我们可以使用ShowDialog()方法在Windows窗体中显示PrintDialog控件。

让我们使用以下步骤在VB.NET Windows窗体中创建一个PrintDialog控件。

步骤1：我们必须从工具箱中找到PrintDialog、PrintDocument、PrintPreviewDialog控件。将PrintDialog、PrintDocument、PrintPreviewDialog控件拖放到窗体窗口上，如下所示。

步骤2：将对话框添加到窗体后，我们可以通过单击PrintDialog、PrintDocument、PrintPreviewDialog控件来设置PrintDialog的各种属性。

打印对话框属性

打印对话框框具有以下属性。

性质	描述
AllowPrintToFile	AllowPrintToFile属性用于在控件框中设置一个值，该值表示是否在对话框中启用“打印到文件”复选框。
文档	Document属性用于在对话框中设置一个值，该值表示PrintDocument是否能够接收PrintSettings。
AllowCurrentPage	AllowCurrentPage属性用于设置一个值，该值表示“当前页面”选项按钮是否显示在PrintDialog框中。
PrintToFile	PrintToFile属性用于在控件中设置或获取一个值，该值表示是否在对话框中选中“打印到文件”复选框。
ShowHelp	ShowHelp属性用于设置一个值，该值表示是否应在对话框中显示“帮助”按钮。
PrinterSetting	它用于在PrintDialog框中设置打印机设置属性。
AllowSelection	AllowSelection属性用于在控件中设置一个值，该值表示是否在PrintDialog框中启用“选择”选项按钮。

Print Dialog控件的方法

方法	描述
ShowDialog()	ShowDialog () 方法用于使用默认设置运行通用对话框。
重置()	Reset()方法用于将所有更改重置为其默认值。
Dispose()	Dispose()方法用于释放对话框框中Control或组件使用的所有资源。
RunDialog()	它用于覆盖派生类以创建通用对话框。

PrintDialog控件的事件

事件	描述
Disposed	当通过调用Dispose()方法终止控件或组件时，会发生Dispose事件。
HelpRequest	当用户单击对话框的“帮助”按钮时，将调用HelpRequest事件。

让我们创建一个简单的程序来在VB.NET Windows窗体中打印和预览文档。

Printbox.vb

Public Class Printbox
    Private Sub Printbox_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "javatPoint.com" 'Set the title for the Windows form
        Button1.Text = "Print"
        Button2.Text = "Print Preview"
        Button1.BackColor = Color.SkyBlue
        Button2.BackColor = Color.SkyBlue
        PrintPreviewDialog1.Document = PrintDocument1
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If PrintDialog1.ShowDialog = DialogResult.OK Then 'Open the print dialog box
            PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
            PrintDocument1.Print() 'print a document
        End If
    End Sub
    Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim font As New Font("Times New Roman", 24, FontStyle.Bold) 'set the font to display
        e.Graphics.DrawString(RichTextBox1.Text, font, Brushes.Red, 100, 100) 'The DrawString() function is used to print letters.
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If RichTextBox1.Text = " " Then
            MsgBox("Please write some text...")
        Else
            PrintPreviewDialog1.ShowDialog()
        End If
    End Sub
End Class

输出