This example sets print quality on a printer with nonsquare pixels. The array specifies both horizontal and vertical print quality. This example may cause an error, depending on the printer driver you’re using.
Worksheets("Sheet1").PageSetup.PrintQuality = Array(240, 140)
This example displays the current setting for horizontal print quality.
MsgBox "Horizontal Print Quality is " & _
Worksheets("Sheet1").PageSetup.PrintQuality(1)