Simple PrintDocument Example In VB.NET

This code snippet shows you how to use the PrintDocument class to print documents. It uses the PrintPreviewDialog to show the preview of the document and a button to print the document.

1. ' Place a button on the form (PrintPreview)
2. ' PLace a textbox control on the form (TextData)
4. Imports System.Drawing
5. Imports System.Drawing.Printing
7. Public Class Form1
9.     Private Doc As New PrintDocument()
11.     Private Sub PrintPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintPreview.Click
13.         Dim ppDlg As New PrintPreviewDialog()
14.         ppDlg.Document = Doc
15.         ppDlg.Show()
17.         AddHandler Doc.PrintPage, AddressOf Print_PrintPage
19.     End Sub
21.     Private Sub Print_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
23.         Dim g As Graphics = e.Graphics
24.         Dim Brush As New SolidBrush(Color.Black)
25.         g.DrawString(Me.TextData.Text, New Font("arial", 9), Brush, 10, 10)
27.     End Sub
29. End Class