Stampanti - Dialogo

Imports System
Imports System.Windows.Forms
Imports System.Drawing.Printing


Dim prtdoc2 As New PrintDocument()
Dim PrintDialog1 As New PrintDialog()
PrintDialog1.Document = prtdoc2
Dim result As DialogResult = PrintDialog1.ShowDialog()

If (result = DialogResult.OK) Then
prtdoc2.Print()
End If