Programming Excel with VBA and .NET

Name

pagesetup.PrintQuality(index) [= setting]

Synopsis

Sets or returns the horizontal and vertical print resolution as a two-element array. Some printers do not support multiple resolutions, and setting PrintQuality causes an error if the setting is not available or if the object is a chart. The following code displays the printer resolution settings:

Sub ShowResolution(  )
    Dim ws As Worksheet, x As Integer, y As Integer
    Set ws = ActiveSheet
    x = ws.PageSetup.PrintQuality(1)
    y = ws.PageSetup.PrintQuality(2)
    MsgBox "Printer resolution is " & x & "x" & y
End Sub