Thanks Albert & Razzak It is getting more fun the more I learn. But sometimes the learning curve is too tight and I go flying off the road and crash!
Marc ----- Original Message ----- From: "A. Razzak Memon" <[EMAIL PROTECTED]> To: "RBG7-L Mailing List" <[email protected]> Sent: Wednesday, March 23, 2005 3:12 PM Subject: [RBG7-L] - Re: Printer options > At 03:48 PM 3/23/2005, Marc Shluter wrote: > > >I was wondering... is there a better way besides using > >a bunch of Choose statements. > > > >I do not think I will need all of the options we have > >with 7.1, mostly Printer, LPT1, Screen, PDF, File and > >maybe another one down the road. > > > Marc, > > Use the (CVAL('Printers')) and (CVAL('WindowsPrinter')) > functions to automate the entire process. > > Here's how: > > -- Start > { > PickPrinter.RMD to provide the option of selecting > appropriate printer as well as the option to print > on SCREEN. > Author: A. Razzak Memon > Created: March 18, 2003 > Last Update: March 23, 2005 > } > > SET VAR vAvailablePrinters TEXT = NULL > SET VAR vPick TEXT = NULL > SET VAR vDefaultPrinter TEXT = NULL > SET VAR vAvailablePrinters = ((CVAL('Printers'))+',Screen') > SET VAR vDefaultPrinter = (CVAL('WindowsPrinter')) > CLS > CHOOSE vPick FROM #LIST .vAvailablePrinters + > CHKBOX 1 TITLE 'Select Appropriate Printer' + > CAPTION 'Available Printers' LINES 10 FORMATTED + > OPTION LIST_FONT_COLOR WHITE + > |LIST_BACK_COLOR TEAL + > |TITLE_FONT_COLOR RED + > |TITLE_BACK_COLOR WHITE + > |WINDOW_BACK_COLOR WHITE + > |TITLE_FONT_NAME VERDANA + > |TITLE_FONT_SIZE 10 + > |TITLE_BOLD ON + > |WINDOW_CAPTION + > |BUTTONS_BACK_COLOR WHITE + > |BUTTONS_SHOW_GLYPH ON > IF vPick IS NULL OR vPick = '[Esc]' THEN > GOTO Done > ENDIF > IF vPick = 'Screen' THEN > PRINT ReportName WHERE .. ORDER BY .. + > OPTION SCREEN|WINDOW_STATE MAXIMIZED > GOTO Done > ELSE > PRNSETUP .vPick > PRINT ReportName WHERE .. ORDER BY .. + > OPTION PRINTER > PRNSETUP .vDefaultPrinter > ENDIF > LABEL Done > CLEAR VAR vAvailablePrinters, vPick, vDefaultPrinter > RETURN > > -- End > > Enjoy and make sure to have fun! > > Very Best R:egards, > > Razzak. > >
