Dim dialog As New PrintDialog()
dialog.Document = TuaStampa
dialog.PrinterSettings.FromPage = 1
Dim ppd As New PrintPreviewDialog()
Try
ppd.Font = New Font("Microsoft _
SansSerif",9,FontStyle.Regular)
ppd.Width = 800
ppd.Height = 600
ppd.StartPosition = FormStartPosition.CenterScreen
ppd.Document = TuaStampa
ppd.Text = "Anteprima di stampa"
ppd.ShowDialog()
Catch exp As Exception
MessageBox.Show("Errore nel caricamento dell'anteprima di stampa." & vbCrLf & _
"Controllare che la stampante sia collegata o accesa." _
, "Errore visualizzazione documento", MessageBoxButtons.OK, MessageBoxIcon.Error)