Me.PrintDialog1.Document = Me.PrintDocument1
'Para desactivar la casita que dice Imprimir a un archivo
Me.PrintDialog1.AllowPrintToFile = False
'Para poder seleccionar las paginas a imprimir
Me.PrintDialog1.AllowSomePages = True
If Me.PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.PrntDocument1.Print()
End If