From Xojo Documentation

Property (As Integer )
aPrinterSetup.MaximumHorizontalResolution = newIntegerValue
IntegerValue = aPrinterSetup.MaximumHorizontalResolution

New in 2019r2

Supported for all project types and targets.

Set to request the maximum horizontal resolution for the printer to use.


You can change it to the maximum printer resolution you're prepared to handle or -1 for the highest possible resolution of the output device. After calling ShowPageSetupDialog, OpenPrinter, or ShowPrinterDialog, the HorizontalResolution property will automatically be set to the highest resolution supported by the printer driver, within your specified constraints, although this may be less than what you have specified. Printing occurs at HorizontalResolution, so you should always check and use that value after setting this value.


This example sets the MaximumHorizontalResolution and MaximumVerticalResolution properties.

Var settings As String
Var p As PrinterSetup
p = New PrinterSetup
If p.ShowPageSetupDialog Then
settings = p.ConfigurationData
End If
p.MaximumHorizontalResolution = 1200
p.MaximumVerticalResolution = 1200