isCOBOL Evolve : Appendices : Library Routines : P$ : P$SETDIALOG
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