At 03:21 PM 5/20/2014, [email protected] wrote:
Thanks Razzak.
The solution n. 02 is the one that is good for me.
Daniele,
Sono così felice di sentire che!
Buon divertimento!
Razzak
-----Messaggio originale----- From: A. Razzak Memon
Sent: Tuesday, May 20, 2014 8:18 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Re: Print PDF document
At 01:29 PM 5/20/2014, [email protected] wrote:
Hello
R:BASE 9.5 (32)
What is the best way to print a PDF file?
I tried the command
LAUNCH CMD_PRINT | filename.PDF | W | HIDE
but after printing Acrobat Reader is not closed and the Rbase remains locked.
I have to manually close the PDF document and
at this point the Rbase unlocks.
Daniele,
Here's how:
Two techniques ...
01. Using the CHOOSE Command
02. Using the LoadFileName PLUGIN
Once you understand the logic, feel free to adapt the code as you see fit.
Example 01 (Using the CHOOSE Command):
-- start
CLEAR VAR vPDFFileName,vMsg,vPrintYesNo,vPrintString,vQuotes
SET VAR vPDFFileName TEXT = NULL
SET VAR vMsg TEXT = NULL
SET VAR vPrintYesNo TEXT = NULL
SET VAR vPrintString TEXT = NULL
SET VAR vQuotes TEXT = (CVAL('QUOTES'))
CLS
CHOOSE vPDFFileName FROM #LFILES IN *.PDF +
CHKBOX 1 TITLE 'Select PDF File to Print' +
CAPTION ' R:Pick and Print PDF On Demand!' LINES 30 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 14 +
|TITLE_BOLD ON +
|WINDOW_CAPTION +
|BUTTONS_BACK_COLOR WHITE +
|BUTTONS_SHOW_GLYPH ON
IF vPDFFileName IS NULL OR vPDFFileName = '[Esc]' THEN
GOTO Done
ENDIF
SET VAR vMsg = +
((CHAR(013))+'File Name:'&.vPDFFileName+(CHAR(013))+(CHAR(013))+ +
'Would you like to Print?'+(CHAR(013)))
CLS
DIALOG .vMsg vPrintYesNo vEndKey YES +
CAPTION ' R:Pick and Print PDF On Demand!' +
ICON APP +
OPTION TITLE_FONT_COLOR BLACK +
|TITLE_BACK_COLOR WHITE +
|TRANSPARENCY 255 +
|WINDOW_BACK_COLOR WHITE +
|BUTTON_YES_CAPTION &Print +
|BUTTON_NO_CAPTION &Cancel +
|BUTTON_YES_COLOR GREEN +
|BUTTON_NO_COLOR RED +
|BUTTON_YES_FONT_COLOR WHITE +
|BUTTON_NO_FONT_COLOR WHITE
IF vPrintYesNo = 'No' OR vEndKey = '[Esc]' THEN
GOTO Done
ENDIF
SET VAR vPrintString = +
(.vQuotes+'C:\Program Files (x86)\Adobe\Reader
11.0\Reader\AcroRd32.exe|/p /h' +
&.vPDFFilename+.vQuotes)
-- Change the syntax based on your installed version of Adobe Acrobat Reader
LAUNCH &vPrintString
LABEL Done
CLEAR VAR vPDFFileName,vMsg,vPrintYesNo,vPrintString,vQuotes
RETURN
-- end
Example 02 (Using the LoadFileName PLUGIN)
-- start
CLEAR VAR vPDFFileName,vMsg,vPrintYesNo,vPrintString,vQuotes
SET VAR vPDFFileName TEXT = NULL
SET VAR vMsg TEXT = NULL
SET VAR vPrintYesNo TEXT = NULL
SET VAR vPrintString TEXT = NULL
SET VAR vQuotes TEXT = (CVAL('QUOTES'))
CLS
PLUGINS LoadFileName vPDFFileName +
|FULLPATH ON +
|NO_CHANGE_DIR ON +
|VIEW_MODE LIST +
|TITLE R:Pick and Print PDF - Select PDF File +
|FILTER Adobe PDF Files (*.pdf)#*.PDF
IF vPDFFileName IS NULL OR vPDFFileName = '[Esc]' THEN
GOTO Done
ENDIF
SET VAR vMsg = +
((CHAR(013))+'File Name:'&.vPDFFileName+(CHAR(013))+(CHAR(013))+ +
'Would you like to Print?'+(CHAR(013)))
CLS
DIALOG .vMsg vPrintYesNo vEndKey YES +
CAPTION ' R:Pick and Print PDF On Demand!' +
ICON APP +
OPTION TITLE_FONT_COLOR BLACK +
|TITLE_BACK_COLOR WHITE +
|TRANSPARENCY 255 +
|WINDOW_BACK_COLOR WHITE +
|BUTTON_YES_CAPTION &Print +
|BUTTON_NO_CAPTION &Cancel +
|BUTTON_YES_COLOR GREEN +
|BUTTON_NO_COLOR RED +
|BUTTON_YES_FONT_COLOR WHITE +
|BUTTON_NO_FONT_COLOR WHITE
IF vPrintYesNo = 'No' OR vEndKey = '[Esc]' THEN
GOTO Done
ENDIF
SET VAR vPrintString = +
(.vQuotes+'C:\Program Files (x86)\Adobe\Reader
11.0\Reader\AcroRd32.exe|/p /h' +
&.vPDFFilename+.vQuotes)
-- Change the syntax based on your installed version of Adobe Acrobat Reader
LAUNCH &vPrintString
LABEL Done
CLEAR VAR vPDFFileName,vMsg,vPrintYesNo,vPrintString,vQuotes
RETURN
-- end
Both techniques will print the PDF document directly to printer without
launching the Adobe Acrobat Reader and then clicking on the print button.
If you need more examples or the actual demo application, feel free to
contact me.
Enjoy and make sure to have fun!
Razzak.
www.rbase.com
www.facebook.com/rbase
--
31 years of continuous innovation!
16 Years of R:BASE Technologies, Inc. making R:BASE what it is today!
--
