How to catch users selection of the printer quality settings?

[bona]

For setting a printer I am using such code:

' Sets a printer and number of copies to be printed
Private Function SetPrinter() As Boolean

SetPrinter = True

Dim PrintDialog1 As New PrintDialog()
PrintDialog1.Document = PrintDocument1
PrintDialog1.AllowPrintToFile = False
PrintDialog1.AllowSomePages = False

Dim result As DialogResult = PrintDialog1.ShowDialog()

If (result = DialogResult.OK) Then
strPrinterName = PrintDialog1.PrinterSettings.PrinterName
shtNumberOfCopies = PrintDialog1.PrinterSettings.Copies

Else
SetPrinter = False
End If
End Function

From a dialog it is possible to set the quality of printing (draft, normal, …), but I cannot find, how to read the users selection (if he selected) the quality.

[Athley]

You can get all the properties set by the user like this I guess (haven't tried it myself)....

PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings