Hi Razzak,
I've tried the code below & it didn't work! I still print to the default
windows printer!
Why can't we just issue a PRNSETUP, select the printer and options from the
menu & print rptname OPTION PRINTER? Wouldn't it be simpler?
CLEAR VAR vavailableprinters, vpickedprinter, vdefaultprinter
SET VAR vavailableprinters TEXT = NULL
SET VAR vpickedprinter TEXT = NULL
SET VAR vdefaultprinter TEXT = NULL
SET VAR vavailableprinters = ((CVAL('Printers'))+',Screen')
SET VAR vdefaultprinter = (CVAL('WindowsPrinter'))
CLS
CHOOSE vpickedprinter FROM #LIST .vavailableprinters CHKBOX 1 +
TITLE 'Select Appropriate Printer'CAPTION 'Available Printers' LINES
20 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 tahoma +
|title_font_size 10 +
|title_bold ON +
|window_caption +
|BUTTONS_BACK_COLOR WHITE +
|BUTTONS_SHOW_GLYPH ON
IF vpickedprinter IS NULL OR vpickedprinter= '[Esc]' THEN
GOTO done
ENDIF
IF vpickedprinter = 'Screen' THEN
PRINT etat_cli_mois WHERE nrep = .vreno1 ORDER BY
numclient,numcpte +
OPTION SCREEN |zoompercent 100 |window_state maximized
GOTO done
ELSE
PRNSETUP .vpickedprinter
PRINT etat_cli_mois WHERE nrep = .vreno1 ORDER BY
numclient,numcpte +
OPTION PRINTER |orientation LANDSCAPE
PRNSETUP .vdefaultprinter
ENDIF
LABEL done
CLS
CLEAR VAR vavailableprinters, vpickedprinter, vdefaultprinter RETURN
Best regards,
Philippe.
[EMAIL PROTECTED]
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of A. Razzak
Memon
Sent: Saturday, May 07, 2005 10:49 PM
To: RBG7-L Mailing List
Subject: [RBG7-L] - Re: Prnsetup (was Re: Pre-Release Version ofUpdate81)
At 11:55 PM 5/6/2005, Bernie Lis wrote:
>This is what I don't understand:
>
>Why do we have to do prnsetup .vDefaultPrinter after printing,
>if the next print command goes to the default printer anyways?
Well, let me see if I can help you understand.
The PRNSETUP sets up the printer for current R:BASE Session
until the next PRNSETUP command is issued. R:BASE session will
use that printer until you issue another PRNSETUP command or
EXIT R:BASE.
After starting R:BASE. if no PRNSETUP command is issued at all,
the current R:BASE session printer is automatically the Windows
default printer,
Very Best R:egards,
Razzak.
>----- Original Message ----- From: "A. Razzak Memon" <[EMAIL PROTECTED]>
>To: "RBG7-L Mailing List" <[email protected]>
>Sent: Friday, May 06, 2005 11:29 PM
>Subject: [RBG7-L] - Re: Prnsetup (was Re: Pre-Release Version of Update81)
>>
>>Using the steps above, the next print command using the
>>OPTION PRINTER will be directed to Windows default printer,
>>unless specified by PRNSETUP printername command, again.
>>
>>To automate the process, try the following technique without
>>affecting the Windows default printer.
>>
>>
>>-- Start
>>CLEAR VAR vAvailablePrinters, vPickedPrinter, vDefaultPrinter
>>SET VAR vAvailablePrinters TEXT = NULL
>>SET VAR vPickedPrinter TEXT = NULL
>>SET VAR vDefaultPrinter TEXT = NULL
>>SET VAR vAvailablePrinters = ((CVAL('Printers'))+',Screen')
>>SET VAR vDefaultPrinter = (CVAL('WindowsPrinter'))
>>CLS
>>CHOOSE vPickedPrinter FROM #LIST .vAvailablePrinters +
>>CHKBOX 1 TITLE 'Select Appropriate Printer' +
>>CAPTION 'Available Printers' 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 vPickedPrinter IS NULL OR vPickedPrinter= '[Esc]' THEN
>> GOTO Done
>>ENDIF
>>IF vPickedPrinter = 'Screen' THEN
>> PRINT ReportName WHERE .. ORDER BY .. +
>> OPTION SCREEN|WINDOW_STATE MAXIMIZED
>> GOTO Done
>>ELSE
>> PRNSETUP .vPickedPrinter
>> PRINT ReportName WHERE .. ORDER BY .. +
>> OPTION PRINTER
>> PRNSETUP .vDefaultPrinter
>>ENDIF
>>LABEL Done
>>CLS
>>CLEAR VAR vAvailablePrinters, vPickedPrinter, vDefaultPrinter
>>RETURN
>>-- End
>>
>>Have fun!
>>
>>Very Best R:egards,
>>
>>Razzak.
