VB.NET Print Dialog Box

It is used to display the PrintDialog box in an application. It is an important dialog control that allows the user to select sections of a document and then select a printer to print pages from the Windows Forms application. Furthermore, a user can specify the range of pages to print, printer to use, number of copies in the PrintDialog box. And we can display the PrintDialog control in a Windows form using the ShowDialog() method.

Let's create a PrintDialog control in the VB.NET Windows form using the following steps.

Step 1: We have to find the PrintDialog, PrintDocument, PrintPreviewDialog control from the toolbox. Drag and drop the PrintDialog, PrintDocument, PrintPreviewDialog control onto the window form, as shown below.

Step 2: Once the Dialog is added to the form, we can set various properties of the PrintDialog by clicking on the PrintDialog, PrintDocument, PrintPreviewDialog control.

Print Dialog Properties

There are following properties of the Print Dialog Dialog Box.

Properties	Description
AllowPrintToFile	The AllowPrintToFile property is used to set a value in the control box representing whether the Print to File checkbox is enabled in the dialog box.
Document	The Document property is used to set a value in the dialog box representing whether the PrintDocument is capable of receiving PrintSettings.
AllowCurrentPage	The AllowCurrentPage property is used to set a value representing whether the Current Page option button is displayed in the PrintDialog box.
PrintToFile	The PrintToFile property is used to set or get a value in the control that represents whether the Print to File checkbox is selected in the dialog box.
ShowHelp	The ShowHelp property is used to set a value that represents whether the Help button should be displayed in the dialog box.
PrinterSetting	It is used to set the printer setting property in the PrintDialog box.
AllowSelection	The AllowSelection property is used to set a value in the control that represents whether the Selection option button is enabled in the PrintDialog box.

Methods of Print Dialog Control

Method	Description
ShowDialog()	The ShowDialog () method is used to run a common dialog box with the default setting.
Reset()	The Reset() method is used to reset all changes to their default values.
Dispose()	The Dispose() method is used to free all resources used by the Control or component in the Dialog Box.
RunDialog()	It is used to override a derived class to create a common dialog box.

Events of PrintDialog Control

Events	Description
Disposed	When control or component is terminated by calling the Dispose() method, a Dispose event occurs.
HelpRequest	When a user clicks the Help button of the dialog box, the HelpRequest event is called.

Let's create a simple program to print and preview the document in the VB.NET Windows Forms.

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

Output: