Public Class MyPreviewDialog
 
 
    Private _PrintDialog As PrintDialog
    Private _PageDialog As PageSetupDialog
 
 
    Public Property PrintDoc() As Printing.PrintDocument
        Get
            Return Me.PrintPreviewControl1.Document
        End Get
        Set(ByVal value As Printing.PrintDocument)
            Me.PrintPreviewControl1.Document = value
        End Set
    End Property
    Public Property PrintDialog() As PrintDialog
        Get
            Return Me._PrintDialog
        End Get
        Set(ByVal value As PrintDialog)
            Me._PrintDialog = value
        End Set
    End Property
    Public Property PageDialog() As PageSetupDialog
        Get
            Return Me._PageDialog
        End Get
        Set(ByVal value As PageSetupDialog)
            Me._PageDialog = value
        End Set
    End Property
 
    Private Sub btn_Print_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles btn_Print.Click
        If Me.PrintDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.PrintDoc.Print()
            Me.PrintPreviewControl1.InvalidatePreview()
        Else
        End If
    End Sub
 
    Private Sub btn_PageSetup_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles btn_PageSetup.Click
        If Me.PageDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Me.PrintPreviewControl1.InvalidatePreview()
        Else
        End If
    End Sub
 
End Class