P$SETDIALOG The P$SETDIALOG library routine initializes fields for the Choose Printer dialog box. Syntax 1 CALL "P$SETDIALOG" USING printDialog Parameters printDialog Group Item Group Item defined as follows: 01 PrintDialog. 02 PD-ReturnValue pic x. 02 PD-ExtendedErrorValue pic 9(5) binary(2). 02 PD-Flags. 03 PD-AllPagesFlagValue pic x. 03 PD-SelectionFlagValue pic x. 03 PD-PageNumbersFlagValue pic x. 03 PD-NoSelectionFlagValue pic x. 03 PD-NoPageNumbersFlagValue pic x. 03 PD-CollateFlagValue pic x. 03 PD-PrintSetupFlagValue pic x. 03 PD-PrintToFileFlagValue pic x. 03 PD-NoWarningFlagValue pic x. 03 PD-UseDevModeCopiesFlagValue pic x. 03 PD-DisablePrintToFileFlagValue pic x. 03 PD-HidePrintToFileFlagValue pic x. 03 PD-NoNetworkButtonFlagValue pic x. 02 PD-FromPage pic 9(5) binary(2). 02 PD-ToPage pic 9(5) binary(2). 02 PD-MinPage pic 9(5) binary(2). 02 PD-MaxPage pic 9(5) binary(2). 02 PD-Copies pic 9(5) binary(2). 02 DM-DeviceName pic X(31). 02 DM-Fields. 03 DM-OrientationFieldValue pic x. 03 DM-PaperSizeFieldValue pic x. 03 DM-PaperLengthFieldValue pic x. 03 DM-PaperWidthFieldValue pic x. 03 DM-ScaleFieldValue pic x. 03 DM-CopiesFieldValue pic x. 03 DM-PaperSourceFieldValue pic x. 03 DM-PrintQualityFieldValue pic x. 03 DM-ColorFieldValue pic x. 03 DM-DuplexFieldValue pic x. 03 DM-YResolutionFieldValue pic x. 03 DM-TrueTypeOptionFieldValue Pic x. 03 DM-CollateFieldValue pic x. 03 DM-ICMMethodFieldValue pic x. 03 DM-ICMIntentFieldValue pic x. 03 DM-MediaTypeFieldValue pic x. 03 DM-DitherTypeFieldValue pic x. 02 DM-OrientationValue pic 9 binary(2). 02 DM-PaperSizeValue pic 9(2) binary(2). 02 DM-PaperLength pic 9(5) binary(2). 02 DM-PaperWidth pic 9(5) binary(2). 02 DM-Scale pic 9(5) binary(2). 02 DM-Copies pic 9(5) binary(2). 02 DM-PaperSourceValue pic 9(2) binary(2). 02 DM-ResolutionValue pic S9 binary(2). 02 DM-ColorValue pic 9 binary(2). 02 DM-DuplexValue pic 9 binary(2). 02 DM-YResolution pic 9(5) binary(2). 02 DM-TrueTypeValue pic 9 binary(2). 02 DM-CollateValue pic 9 binary(2). 02 DM-ICMMethodValue pic 9 binary(4). 02 DM-ICMIntentValue pic 9 binary(4). 02 DM-MediaTypeValue pic 9 binary(4). 02 DM-DitherTypeValue pic 99 binary(4). Note - only the following fields are supported: - PD-Collate-Flag-Value - PD-Copies - DM-DeviceName - DM-Fields - DM-OrientationValue - DM-PaperSizeValue - DM-Copies - DM-PaperSourceValue - DM-ColorValue Syntax 2 CALL "P$SETDIALOG" USING settingName1, settingValue1 [settingName2, settingValue2 ... [settingNameN, settingValueN] Parameters settingName1 settingName2 ... settingNameN PIC X(n) Specifies the setting name. Possible values are: “Collate Flag” “Print Dialog Copies” “Device Name” “Orientation” “Paper Size” “Device Mode Copies” “Default Source” “Print Quality” “Color” settingValue1 settingValue2 ... settingValueN PIC X(n) or PIC 9(n) depending on the value type Specifies the setting value. Possible values are: Print Dialog Copies -> any numeric value Device Name -> any alphanumeric value Orientation -> 1=Portrait, 2=Landscape Paper Size -> see winprint-curr-papersize constants in isprint.def Device Mode Copies -> any numeric value Default Source -> see winprint-curr-tray constants in isprint.def Print Quality” -> from -1 (highest) to -4 (lowest) or 0 for default Color -> 1=Monochrome, 2=Color