/////////////////////////////////////////////////////////////////////
// MINIPRINT SET COMMANDS
/////////////////////////////////////////////////////////////////////

#xcommand SELECT PRINTER <cPrinter> ;
      [ <lOrientation: ORIENTATION> <nOrientation> ] ;
      [ <lPaperSize: PAPERSIZE> <nPaperSize> ] ;
      [ <lPaperLength: PAPERLENGTH> <nPaperLength> ] ;
      [ <lPaperWidth: PAPERWIDTH> <nPaperWidth> ] ;
      [ <lCopies: COPIES> <nCopies> ] ;
      [ <lDefaultSource: DEFAULTSOURCE> <nDefaultSource> ] ;
      [ <lQuality: QUALITY> <nQuality> ] ;
      [ <lColor: COLOR> <nColor> ] ;
      [ <lDuplex: DUPLEX> <nDuplex> ] ;
      [ <lCollate: COLLATE> <nCollate> ] ;
      [ <lScale: SCALE> <nScale> ] ;
      [ <lPreview: PREVIEW> ] ;
      [ <lSilent: NOERRORMSGS> ] ;
      [ <lIgnore: IGNOREERRORS> ] ;
      [ <lGlobal: GLOBAL> ] ;
   => ;
      _HMG_PRINTER_aPrinterProperties := _HMG_PRINTER_SetPrinterProperties( ;
            <cPrinter>, ;
            IIF( <.lOrientation.>, <nOrientation>, -999 ), ;
            IIF( <.lPaperSize.>, <nPaperSize>, -999 ), ;
            IIF( <.lPaperLength.>, <nPaperLength>, -999 ), ;
            IIF( <.lPaperWidth.>, <nPaperWidth>, -999 ), ;
            IIF( <.lCopies.>, <nCopies>, -999 ), ;
            IIF( <.lDefaultSource.>, <nDefaultSource>, -999 ), ;
            IIF( <.lQuality.>, <nQuality>, -999 ), ;
            IIF( <.lColor.>, <nColor>, -999 ), ;
            IIF( <.lDuplex.>, <nDuplex>, -999 ), ;
            IIF( <.lCollate.>, <nCollate>, -999 ), ;
            IIF( <.lScale.>, <nScale>, -999 ), ;
            <.lSilent.>, ;
            <.lIgnore.>, ;
            <.lGlobal.> ) ;;
      _HMG_PRINTER_hDC := _HMG_PRINTER_aPrinterProperties\[1\] ;;
      _HMG_PRINTER_Copies := _HMG_PRINTER_aPrinterProperties\[3\] ;;
      _HMG_PRINTER_Collate := _HMG_PRINTER_aPrinterProperties\[4\] ;;
      _HMG_PRINTER_Error := _HMG_PRINTER_aPrinterProperties\[5\] ;;
      _HMG_PRINTER_Preview := <.lPreview.> ;;
      _HMG_PRINTER_InitUserMessages() ;;
      _HMG_PRINTER_TimeStamp := StrZero( Seconds() * 100, 8 ) ;;
      _HMG_PRINTER_Name := <cPrinter>

#xcommand SELECT PRINTER <cPrinter> TO <lSuccess> ;
      [ <lOrientation: ORIENTATION> <nOrientation> ] ;
      [ <lPaperSize: PAPERSIZE> <nPaperSize> ] ;
      [ <lPaperLength: PAPERLENGTH> <nPaperLength> ] ;
      [ <lPaperWidth: PAPERWIDTH> <nPaperWidth> ] ;
      [ <lCopies: COPIES> <nCopies> ] ;
      [ <lDefaultSource: DEFAULTSOURCE> <nDefaultSource> ] ;
      [ <lQuality: QUALITY> <nQuality> ] ;
      [ <lColor: COLOR> <nColor> ] ;
      [ <lDuplex: DUPLEX> <nDuplex> ] ;
      [ <lCollate: COLLATE> <nCollate> ] ;
      [ <lScale: SCALE> <nScale> ] ;
      [ <lPreview: PREVIEW> ] ;
      [ <lSilent: NOERRORMSGS> ] ;
      [ <lIgnore: IGNOREERRORS> ] ;
      [ <lGlobal: GLOBAL> ] ;
   => ;
      _HMG_PRINTER_aPrinterProperties := _HMG_PRINTER_SetPrinterProperties( ;
            <cPrinter>, ;
            IIF( <.lOrientation.>, <nOrientation>, -999 ), ;
            IIF( <.lPaperSize.>, <nPaperSize>, -999 ), ;
            IIF( <.lPaperLength.>, <nPaperLength>, -999 ), ;
            IIF( <.lPaperWidth.>, <nPaperWidth>, -999 ), ;
            IIF( <.lCopies.>, <nCopies>, -999 ), ;
            IIF( <.lDefaultSource.>, <nDefaultSource>, -999 ), ;
            IIF( <.lQuality.>, <nQuality>, -999 ), ;
            IIF( <.lColor.>, <nColor>, -999 ), ;
            IIF( <.lDuplex.>, <nDuplex>, -999 ), ;
            IIF( <.lCollate.>, <nCollate>, -999 ), ;
            IIF( <.lScale.>, <nScale>, -999 ), ;
            <.lSilent.>, ;
            <.lIgnore.>, ;
            <.lGlobal.> ) ;;
      _HMG_PRINTER_hDC := _HMG_PRINTER_aPrinterProperties\[1\] ;;
      _HMG_PRINTER_Copies := _HMG_PRINTER_aPrinterProperties\[3\] ;;
      _HMG_PRINTER_Collate := _HMG_PRINTER_aPrinterProperties\[4\] ;;
      _HMG_PRINTER_Error := _HMG_PRINTER_aPrinterProperties\[5\] ;;
      <lSuccess> := IIF( _HMG_PRINTER_hDC <> 0, .T., .F. ) ;;
      _HMG_PRINTER_Preview := <.lPreview.> ;;
      _HMG_PRINTER_InitUserMessages() ;;
      _HMG_PRINTER_TimeStamp := StrZero( Seconds() * 100, 8 ) ;;
      _HMG_PRINTER_Name := <cPrinter>

#xcommand SELECT PRINTER DEFAULT ;
      [ <lOrientation: ORIENTATION> <nOrientation> ] ;
      [ <lPaperSize: PAPERSIZE> <nPaperSize> ] ;
      [ <lPaperLength: PAPERLENGTH> <nPaperLength> ] ;
      [ <lPaperWidth: PAPERWIDTH> <nPaperWidth> ] ;
      [ <lCopies: COPIES> <nCopies> ] ;
      [ <lDefaultSource: DEFAULTSOURCE> <nDefaultSource> ] ;
      [ <lQuality: QUALITY> <nQuality> ] ;
      [ <lColor: COLOR> <nColor> ] ;
      [ <lDuplex: DUPLEX> <nDuplex> ] ;
      [ <lCollate: COLLATE> <nCollate> ] ;
      [ <lScale: SCALE> <nScale> ] ;
      [ <lPreview: PREVIEW> ] ;
      [ <lSilent: NOERRORMSGS> ] ;
      [ <lIgnore: IGNOREERRORS> ] ;
      [ <lGlobal: GLOBAL> ] ;
   => ;
      _HMG_PRINTER_Name := GetDefaultPrinter() ;;
      _HMG_PRINTER_aPrinterProperties := _HMG_PRINTER_SetPrinterProperties( ;
            _HMG_PRINTER_Name, ;
            IIF( <.lOrientation.>, <nOrientation>, -999 ), ;
            IIF( <.lPaperSize.>, <nPaperSize>, -999 ), ;
            IIF( <.lPaperLength.>, <nPaperLength>, -999 ), ;
            IIF( <.lPaperWidth.>, <nPaperWidth>, -999 ), ;
            IIF( <.lCopies.>, <nCopies>, -999 ), ;
            IIF( <.lDefaultSource.>, <nDefaultSource>, -999 ), ;
            IIF( <.lQuality.>, <nQuality>, -999 ), ;
            IIF( <.lColor.>, <nColor>, -999 ), ;
            IIF( <.lDuplex.>, <nDuplex>, -999 ), ;
            IIF( <.lCollate.>, <nCollate>, -999 ), ;
            IIF( <.lScale.>, <nScale>, -999 ), ;
            <.lSilent.>, ;
            <.lIgnore.>, ;
            <.lGlobal.> ) ;;
      _HMG_PRINTER_hDC := _HMG_PRINTER_aPrinterProperties\[1\] ;;
      _HMG_PRINTER_Copies := _HMG_PRINTER_aPrinterProperties\[3\] ;;
      _HMG_PRINTER_Collate := _HMG_PRINTER_aPrinterProperties\[4\] ;;
      _HMG_PRINTER_Error := _HMG_PRINTER_aPrinterProperties\[5\] ;;
      _HMG_PRINTER_Preview := <.lPreview.> ;;
      _HMG_PRINTER_InitUserMessages() ;;
      _HMG_PRINTER_TimeStamp := StrZero( Seconds() * 100, 8 ) ;;

#xcommand SELECT PRINTER DEFAULT TO <lSuccess> ;
      [ <lOrientation: ORIENTATION> <nOrientation> ] ;
      [ <lPaperSize: PAPERSIZE> <nPaperSize> ] ;
      [ <lPaperLength: PAPERLENGTH> <nPaperLength> ] ;
      [ <lPaperWidth: PAPERWIDTH> <nPaperWidth> ] ;
      [ <lCopies: COPIES> <nCopies> ] ;
      [ <lDefaultSource: DEFAULTSOURCE> <nDefaultSource> ] ;
      [ <lQuality: QUALITY> <nQuality> ] ;
      [ <lColor: COLOR> <nColor> ] ;
      [ <lDuplex: DUPLEX> <nDuplex> ] ;
      [ <lCollate: COLLATE> <nCollate> ] ;
      [ <lScale: SCALE> <nScale> ] ;
      [ <lPreview: PREVIEW> ] ;
      [ <lSilent: NOERRORMSGS> ] ;
      [ <lIgnore: IGNOREERRORS> ] ;
      [ <lGlobal: GLOBAL> ] ;
   => ;
      _HMG_PRINTER_Name := GetDefaultPrinter() ;;
      _HMG_PRINTER_aPrinterProperties := _HMG_PRINTER_SetPrinterProperties( ;
            _HMG_PRINTER_Name, ;
            IIF( <.lOrientation.>, <nOrientation>, -999 ), ;
            IIF( <.lPaperSize.>, <nPaperSize>, -999 ), ;
            IIF( <.lPaperLength.>, <nPaperLength>, -999 ), ;
            IIF( <.lPaperWidth.>, <nPaperWidth>, -999 ), ;
            IIF( <.lCopies.>, <nCopies>, -999 ), ;
            IIF( <.lDefaultSource.>, <nDefaultSource>, -999 ), ;
            IIF( <.lQuality.>, <nQuality>, -999 ), ;
            IIF( <.lColor.>, <nColor>, -999 ), ;
            IIF( <.lDuplex.>, <nDuplex>, -999 ), ;
            IIF( <.lCollate.>, <nCollate>, -999 ), ;
            IIF( <.lScale.>, <nScale>, -999 ), ;
            <.lSilent.>, ;
            <.lIgnore.>, ;
            <.lGlobal.> ) ;;
      _HMG_PRINTER_hDC := _HMG_PRINTER_aPrinterProperties\[1\] ;;
      _HMG_PRINTER_Copies := _HMG_PRINTER_aPrinterProperties\[3\] ;;
      _HMG_PRINTER_Collate := _HMG_PRINTER_aPrinterProperties\[4\] ;;
      _HMG_PRINTER_Error := _HMG_PRINTER_aPrinterProperties\[5\] ;;
      <lSuccess> := IIF( _HMG_PRINTER_hDC <> 0, .T., .F. ) ;;
      _HMG_PRINTER_Preview := <.lPreview.> ;;
      _HMG_PRINTER_InitUserMessages() ;;
      _HMG_PRINTER_TimeStamp := StrZero( Seconds() * 100, 8 ) ;;

#xcommand SELECT PRINTER DIALOG [ <lPreview: PREVIEW> ] ;
   => ;
      _HMG_PRINTER_aPrinterProperties = _HMG_PRINTER_PrintDialog() ;;
      _HMG_PRINTER_hDC := _HMG_PRINTER_aPrinterProperties\[1\] ;;
      _HMG_PRINTER_Name := _HMG_PRINTER_aPrinterProperties\[2\] ;;
      _HMG_PRINTER_Copies := _HMG_PRINTER_aPrinterProperties\[3\] ;;
      _HMG_PRINTER_Collate := _HMG_PRINTER_aPrinterProperties\[4\] ;;
      _HMG_PRINTER_Error := _HMG_PRINTER_aPrinterProperties\[5\] ;;
      _HMG_PRINTER_Preview := <.lPreview.> ;;
      _HMG_PRINTER_InitUserMessages() ;;
      _HMG_PRINTER_TimeStamp := StrZero( Seconds() * 100, 8 )

#xcommand SELECT PRINTER DIALOG TO <lSuccess> [ <lPreview: PREVIEW> ] ;
   => ;
      _HMG_PRINTER_aPrinterProperties = _HMG_PRINTER_PrintDialog() ;;
      _HMG_PRINTER_hDC := _HMG_PRINTER_aPrinterProperties\[1\] ;;
      _HMG_PRINTER_Name := _HMG_PRINTER_aPrinterProperties\[2\] ;;
      _HMG_PRINTER_Copies := _HMG_PRINTER_aPrinterProperties\[3\] ;;
      _HMG_PRINTER_Collate := _HMG_PRINTER_aPrinterProperties\[4\] ;;
      _HMG_PRINTER_Error := _HMG_PRINTER_aPrinterProperties\[5\] ;;
      <lSuccess> := IIF( _HMG_PRINTER_hDC <> 0, .T., .F. ) ;;
      _HMG_PRINTER_Preview := <.lPreview.> ;;
      _HMG_PRINTER_InitUserMessages() ;;
      _HMG_PRINTER_TimeStamp := StrZero( Seconds() * 100, 8 )

#xcommand SET PREVIEW ZOOM <nZoom> ;
   => ;
      _HMG_PRINTER_PreviewZoom( <nZoom> )