[RBASE-L] - Re: Problem printing to PDF file

[Bill Eyring]

Razzak,

Thanks for your example. I have quit mucking about with with the date format
and have changed my code to the proscribed format.

Your sample code also worked.

However, when I put your code(slightly modified to print my report - see
below) into my form which executes when the PDF Radio button is clicked, I
get the same result as before. Multiple copies of the PDF report keep
printing until I stop it.  I use this form to print 17 reports in my
application. Rather than have 17 different forms to print a report, I use
variables in the Main Menu which get passed to the form in question.
Needless to say I am perplexed by this issue.

Any help you can provide would be greatly appreciated. Should I send a
sample to RDCC ?

Many thanks,

Bill Eyring


Razzak's Code Modified
 -- Define the FileName
CLEAR VAR vFile
SET VAR vFile TEXT = +
('CliList_'+(FORMAT(.#DATE,'MMDDYYYY'))+'.PDF')

-- Verify the existence of PDF Sub-Directory
SET VAR vChkFile INTEGER = NULL
SET VAR vChkFile = (CHKFILE('PDF'))
IF vChkFile <> 1 THEN
 MD PDF
ENDIF

CLS
-- Example:
-- Concatenating the report name and date to create a PDF file name
-- start here
--LABEL Start
    {IF (CVAL('DATABASE')) <> 'RRBYW14' OR (CVAL('DATABASE')) IS NULL THEN
       CONNECT RRBYW14 IDENTIFIED BY NONE
    ENDIF}

    -- Define the FileName
    CLEAR VAR vFileName
    SET VAR vFileName TEXT = +
    {('SalesSumAndSubTotals_'+(FORMAT(.#DATE,'MMDDYYYY'))+'.PDF')}
     ('CliList_'+(FORMAT(.#DATE,'MMDDYYYY'))+'.PDF')
    -- Verify the existence of PDF Sub-Directory
    SET VAR vChkFile INTEGER = NULL
    SET VAR vChkFile = (CHKFILE('PDF'))
    IF vChkFile <> 1 THEN
       MD PDF
    ENDIF

    CLS
    {PRINT SalesSumAndSubTot +}
    PRINT CliList +
    OPTION PDF +
    |FILENAME PDF\.vFileName +
    |SHOW_CANCEL_DIALOG ON +
    |BACKGROUND_FILE NONE +
    |BACKGROUND_TYPE CENTER +
    |BACKGROUND_COLOR WHITE +
    |INCLUDE_LINES ON +
    |INCLUDE_SHAPES ON +
    |INCLUDE_RICHTEXT ON +
    |RICHTEXT_ENCODING_TYPE PLAINTEXT +
    |INCLUDE_IMAGES ON +
    |IMAGE_FORMAT JPG +
    |PIXELFORMAT 32 +
    |JPEG_QUALITY 100 +
    |IMAGE_DPI -1 +
    |INCLUDE_HYPERLINKS ON +
    |GENERATE_TOC ON +
    |TITLE Customer Sales Sub-Totals and Totals +
    |SUBJECT Sales Summary Report +
    |AUTHOR Accounting Team of Consolidated Computer Company +
    |KEYWORDS SubTotals Totals Sales Summary +
    |USE_COMPRESSION ON +
    |COMPRESSION_METHOD MAXCOMPRESS +
    |FONT_ENCODING WIN_ANSI +
    |EMBED_USED_FONTS ON +
    |OPEN ON
{LABEL Done
CLEAR VARIABLES RBTI_%,vFileName,vChkFile RETURN}
-- end here
goto EYRING

label EYRING
set v vout=null
set v vcno=null
set v vclinames=null
set v vfile=null
PROPERTY VRG_Print RADIOBUTTONS[0]->CHECKED FALSE
PROPERTY VRG_Print RADIOBUTTONS[1]->CHECKED FALSE
PROPERTY VRG_Print RADIOBUTTONS[2]->CHECKED FALSE
PROPERTY VRG_Print RADIOBUTTONS[3]->CHECKED FALSE
PROPERTY VRG_Print RADIOBUTTONS[4]->CHECKED FALSE
PROPERTY VRG_Print RADIOBUTTONS[5]->CHECKED FALSE
recalc variables
return


-----Original Message-----
From: rbase-l@rbase.com [mailto:rbas...@rbase.com] On Behalf Of A. Razzak
Memon
Sent: Monday, February 16, 2009 11:52 AM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Re: Problem printing to PDF file

At 10:38 AM 2/16/2009, Bill Eyring wrote:

>I've spent my Presidents Day weekend perplexed and dismayed by a 
>problem I have printing a simple report to a pdf file.


Without knowing all details, try the following very simple example that
concatenates the DATE without mucking with the date format to create a PDF
file name.

Steps:

01. Create a file with the following code (copy and paste) 02. Place the
file in RRBYW14 folder 03. Run the file and see what you get

Have fun!

Very Best R:egards,

Razzak.


-- Example:
-- Concatenating the report name and date to create a PDF file name
-- start here
LABEL Start
    IF (CVAL('DATABASE')) <> 'RRBYW14' OR (CVAL('DATABASE')) IS NULL THEN
       CONNECT RRBYW14 IDENTIFIED BY NONE
    ENDIF

    -- Define the FileName
    CLEAR VAR vFileName
    SET VAR vFileName TEXT = +
    ('SalesSumAndSubTotals_'+(FORMAT(.#DATE,'MMDDYYYY'))+'.PDF')

    -- Verify the existence of PDF Sub-Directory
    SET VAR vChkFile INTEGER = NULL
    SET VAR vChkFile = (CHKFILE('PDF'))
    IF vChkFile <> 1 THEN
       MD PDF
    ENDIF

    CLS
    PRINT SalesSumAndSubTot +
    OPTION PDF +
    |FILENAME PDF\.vFileName +
    |SHOW_CANCEL_DIALOG ON +
    |BACKGROUND_FILE NONE +
    |BACKGROUND_TYPE CENTER +
    |BACKGROUND_COLOR WHITE +
    |INCLUDE_LINES ON +
    |INCLUDE_SHAPES ON +
    |INCLUDE_RICHTEXT ON +
    |RICHTEXT_ENCODING_TYPE PLAINTEXT +
    |INCLUDE_IMAGES ON +
    |IMAGE_FORMAT JPG +
    |PIXELFORMAT 32 +
    |JPEG_QUALITY 100 +
    |IMAGE_DPI -1 +
    |INCLUDE_HYPERLINKS ON +
    |GENERATE_TOC ON +
    |TITLE Customer Sales Sub-Totals and Totals +
    |SUBJECT Sales Summary Report +
    |AUTHOR Accounting Team of Consolidated Computer Company +
    |KEYWORDS SubTotals Totals Sales Summary +
    |USE_COMPRESSION ON +
    |COMPRESSION_METHOD MAXCOMPRESS +
    |FONT_ENCODING WIN_ANSI +
    |EMBED_USED_FONTS ON +
    |OPEN ON
LABEL Done
CLEAR VARIABLES RBTI_%,vFileName,vChkFile RETURN
-- end here