. . . '*************************************** ' Create Print Dialog & Set Options '*************************************** Dim objPrintDialog As New PrintDialog objPrintDialog.AllowSomePages = True objPrintDialog.Document = Me._objPrintDoc '*************************************** ' Process With Print If OK Pressed '*************************************** If objPrintDialog.ShowDialog() = DialogResult.OK Then Me._objPrintDoc.Print() End If . . .