>FUNCTION SELPRINT >PARAMETER mOnLine, mExport > >IF NOT mOnLine > SET PRINTER TO NAME (alltrim(_report_prt)) > RETURN 1 >ENDIF > >PUSH KEY CLEAR >ON KEY LABEL ESC oform.cmdCancel.CLICK > >PUBLIC mChoice, mTemp >PUBLIC oform >oform=CREATEOBJECT("form1") >oform.SHOW(1) > >ON KEY LABEL ESC >POP KEY > >RETURN mChoice > >DEFINE CLASS form1 AS FORM > AutoCenter = .T. > WindowType = 1 > Height = 200 && 158 > Width = 400 > Caption = "Printer Dialog" > Name = "Form1" > DIMENSION aprintarray[1] > >ADD OBJECT combo1 AS COMBOBOX WITH ; > BOUNDTO = .F., ; > ROWSOURCETYPE = 5, ; > ROWSOURCE = 'THISFORM.aprintarray', ; > HEIGHT = 25, ; > LEFT = 50, ; > STYLE = 2, ; > TOP = 40, ; > WIDTH = 300, ; > NAME = "Combo1", ; > TABINDEX = 6 > >ADD OBJECT cmdPrint AS COMMANDBUTTON WITH ; > TOP = 100, ; > LEFT = 50, ; > HEIGHT = 27, ; > WIDTH = 84, ; > CAPTION = "\<Print Report", ; > DEFAULT = .T., ; > NAME = "cmdPrint", ; > TABINDEX = 1 > >ADD OBJECT cmdPreview AS COMMANDBUTTON WITH ; > TOP = 100, ; > LEFT = 158, ; > HEIGHT = 27, ; > WIDTH = 84, ; > CAPTION = "Pre\<view", ; > NAME = "cmdPreview", ; > TABINDEX = 2 > >ADD OBJECT cmdCancel AS COMMANDBUTTON WITH ; > TOP = 100, ; > LEFT = 266, ; > HEIGHT = 27, ; > WIDTH = 84, ; > CANCEL = .T., ; > CAPTION = "\<Cancel", ; > NAME = "cmdCancel", ; > TABINDEX = 3 > > >->> HERE ARE THE TWO NEW COMMAND BUTTONS.... > > >*TMT 01/11/10 Added the Export as Spreadsheet button >ADD OBJECT cmdExportAsSpreadsheet AS COMMANDBUTTON WITH ; > TOP = 150, ; > LEFT = 62, ; > HEIGHT = 27, ; > WIDTH = 125, ; > CAPTION = "Export \<Spreadsheet", ; > NAME = "cmdExportAsSpreadsheet", ; > TABINDEX = 4 > >*TMT 01/11/10 Added the Export as Textfile button >ADD OBJECT cmdExportAsTextfile AS COMMANDBUTTON WITH ; > TOP = 150, ; > LEFT = 213, ; > HEIGHT = 27, ; > WIDTH = 125, ; > CAPTION = "Export \<Textfile", ; > NAME = "cmdExportAsTextfile", ; > TABINDEX = 5 > >-->> > >PROCEDURE Load > LOCAL lnI > mTemp = 0 > > FOR lnI = 1 TO APRINTERS(THISFORM.aprintarray) > * Note below that you are adding a leading space. This > * prevents a network printer in Windows NT from appearing > * disabled in the combo due the leading "\" > > IF THISFORM.aprintarray[lnI,1] = ALLTRIM(REGCONFG.REPORT_PRT) > mTemp = lnI > ENDIF > > THISFORM.aprintarray[lnI,1] = ' ' + THISFORM.aprintarray[lnI,1] > ENDFOR > THISFORM.REFRESH >ENDPROC > > >PROCEDURE combo1.INIT > THISFORM.COMBO1.VALUE = THISFORM.aprintarray[mTemp,1] > THIS.Requery() > THISFORM.REFRESH > >*TMT 01/11/10 Add check to Enable or Disable the Export buttons.... > IF mExport > Thisform.cmdExportAsSpreadsheet.Enabled = .T. > Thisform.cmdExportAsTexfile.Enabled = .T. > ELSE > Thisform.cmdExportAsSpreadsheet.Enabled = .F. > Thisform.cmdExportAsTexfile.Enabled = .F. > ENDIF >ENDPROC > >PROCEDURE cmdPrint.CLICK > SET PRINTER TO NAME (ALLTRIM(THISFORM.combo1.VALUE)) > mChoice = 1 > RELEASE THISFORM >ENDPROC > > >PROCEDURE cmdPreview.CLICK > mChoice = 2 > RELEASE THISFORM >ENDPROC > > >PROCEDURE cmdCancel.CLICK > mChoice = 0 > RELEASE THISFORM >ENDPROC > >*TMT 01/11/10 Added the Export as Spreadsheet button >PROCEDURE cmdExportAsSpreadsheet.CLICK > mChoice = 3 > RELEASE THISFORM >ENDPROC > >*TMT 01/11/10 Added the Export as Textfile button >PROCEDURE cmdExportAsTextfile.CLICK > mChoice = 4 > RELEASE THISFORM >ENDPROC > >ENDDEFINE >>
>*TMT 01/11/10 Add check to Enable or Disable the Export buttons.... > IF mExport > Thisform.cmdExportAsSpreadsheet.Enabled = .T. > Thisform.cmdExportAsTexfile.Enabled = .T. > ELSE > Thisform.cmdExportAsSpreadsheet.Enabled = .F. > Thisform.cmdExportAsTexfile.Enabled = .F. > ENDIF >ENDPROC >>