Public Class MainForm
 
    Private _PrintDoc As New MyPrintDoc
    Private _PageDialog As New PageSetupDialog
    Private _PrintDialog As New PrintDialog
    Private _PrintPreview As New MyPreviewDialog
 
    Public Sub New()
        InitializeComponent()
 
        Me._PageDialog.Document = Me._PrintDoc
 
        Me._PrintDialog.Document = Me._PrintDoc
 
        Me._PrintPreview.PrintDoc = Me._PrintDoc
        Me._PrintPreview.PageDialog = Me._PageDialog
        Me._PrintPreview.PrintDialog = Me._PrintDialog
 
    End Sub
 
    Private Sub btn_ShowPreview_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_ShowPreview.Click
        Me._PrintPreview.ShowDialog()
    End Sub
 
End Class