Hi, i'm trying to create a pdf with a dynamic number of graphics in it, this graphics must be JPEG so i can copy them, to the clipboard, from my pdf reader.
I'm able to do this with 3 graphics in one page, more than that seems impossible because no pages are added to the pfd file.
Any ideas?
Here is an example of what i have now:

GRAPH FILE CAR
SUM CAR.BODY.SALES
ACROSS CAR.ORIGIN.COUNTRY
ON GRAPH SET LOOKGRAPH VBAR
ON GRAPH SET GRAPHEDIT SERVER
ON GRAPH SET BARNUMB OFF
ON GRAPH SET 3D OFF
ON GRAPH SET VZERO ON
ON GRAPH SET GRID ON
ON GRAPH SET HAXIS 1500
ON GRAPH SET VAXIS 600
ON GRAPH HOLD AS INCUR FORMAT JPEG
ON GRAPH SET GRAPHSTYLE *
-INCLUDE graph_style
setFontSizeAbsolute(getY1Label(), true);
setFontSizeInPoints(getY1Label(), 28);
setPlaceResize(getY1Label(), 0);
setFontSizeAbsolute(getO1Label(), true);
setFontSizeInPoints(getO1Label(), 28);
setPlaceResize(getO1Label(), 0);
setFontSizeAbsolute(getY1Title(), true);
setFontSizeInPoints(getY1Title(), 28);
setPlaceResize(getY1Title(), 0);
setFontSizeAbsolute(getLegendText(), true);
setFontSizeInPoints(getLegendText(), 28);
setPlaceResize(getLegendText(), 0);
setTextRotation(getO1Label(),0);
setLabelStagger(getO1Label(),true);
setTextString(getO1Title(),"");
setDisplay(getDataText(),true);
setFontSizeAbsolute(getDataText(), true);
setFontSizeInPoints(getDataText(), 24);
setPlaceResize(getDataText(), 0);
setPlace(true);
setTransparentBorderColor(getSeries(0),true);
setTransparentBorderColor(getSeries(1),true);
setTransparentBorderColor(getSeries(2),true);
setTransparentBorderColor(getSeries(3),true);
setTransparentBorderColor(getSeries(4),true);
setTransparentBorderColor(getSeries(5),true);
setTransparentBorderColor(getSeries(6),true);
setTransparentBorderColor(getSeries(7),true);
setTransparentBorderColor(getSeries(8),true);
setTransparentBorderColor(getSeries(9),true);
setTransparentBorderColor(getSeries(10),true);
ENDSTYLE
ON GRAPH SET STYLE *
$
ENDSTYLE
END


TABLE FILE CAR
HEADING
"This is a test"
" "
PRINT CAR.BODY.SALES NOPRINT
FOOTING BOTTOM
"Page <TABPAGENO "
-*ON LOGO PAGE-BREAK
-*ON TABLE PAGE-BREAK
ON TABLE SET HTMLCSS ON
ON TABLE SET PAGE-NUM OFF
ON TABLE SET STYLE *
TYPE=REPORT, IMAGE= INCUR.jpg ,  SIZE=(5 3),  POSITION=( 0 1 ),$
TYPE=REPORT, IMAGE= INCUR.jpg ,  SIZE=(5 3),  POSITION=( 0 4 ),$
TYPE=REPORT, IMAGE= INCUR.jpg ,  SIZE=(5 3),  POSITION=( 0 7),$
TYPE=REPORT, IMAGE= INCUR.jpg ,  SIZE=(5 3),  POSITION=( 0 10),$
TYPE=REPORT, IMAGE= INCUR.jpg ,  SIZE=(5 3),  POSITION=( 0 13),$
ENDSTYLE
ON TABLE PCHOLD FORMAT PDF
END

This message has been edited. Last edited by: P. Afonso,

You might try writing a loop that creates a compound PDF report, one graph/page.

GRAPH FILE CAR
SUM CAR.BODY.SALES
ACROSS CAR.ORIGIN.COUNTRY
ON GRAPH SET LOOKGRAPH VBAR
ON GRAPH SET GRAPHEDIT SERVER
ON GRAPH SET BARNUMB OFF
ON GRAPH SET 3D OFF
ON GRAPH SET VZERO ON
ON GRAPH SET GRID ON
ON GRAPH SET HAXIS 1500
ON GRAPH SET VAXIS 600
ON GRAPH HOLD AS INCUR FORMAT JPEG
ON GRAPH SET GRAPHSTYLE *
-INCLUDE graph_style
setFontSizeAbsolute(getY1Label(), true);
setFontSizeInPoints(getY1Label(), 28);
setPlaceResize(getY1Label(), 0);
setFontSizeAbsolute(getO1Label(), true);
setFontSizeInPoints(getO1Label(), 28);
setPlaceResize(getO1Label(), 0);
setFontSizeAbsolute(getY1Title(), true);
setFontSizeInPoints(getY1Title(), 28);
setPlaceResize(getY1Title(), 0);
setFontSizeAbsolute(getLegendText(), true);
setFontSizeInPoints(getLegendText(), 28);
setPlaceResize(getLegendText(), 0);
setTextRotation(getO1Label(),0);
setLabelStagger(getO1Label(),true);
setTextString(getO1Title(),"");
setDisplay(getDataText(),true);
setFontSizeAbsolute(getDataText(), true);
setFontSizeInPoints(getDataText(), 24);
setPlaceResize(getDataText(), 0);
setPlace(true);
setTransparentBorderColor(getSeries(0),true);
setTransparentBorderColor(getSeries(1),true);
setTransparentBorderColor(getSeries(2),true);
setTransparentBorderColor(getSeries(3),true);
setTransparentBorderColor(getSeries(4),true);
setTransparentBorderColor(getSeries(5),true);
setTransparentBorderColor(getSeries(6),true);
setTransparentBorderColor(getSeries(7),true);
setTransparentBorderColor(getSeries(8),true);
setTransparentBorderColor(getSeries(9),true);
setTransparentBorderColor(getSeries(10),true);
ENDSTYLE
ON GRAPH SET STYLE *
$
ENDSTYLE
END


TABLE FILE CAR
HEADING
"This is a test"
" "
PRINT CAR.BODY.SALES NOPRINT
FOOTING BOTTOM
"Page <TABPAGENO "
-*ON LOGO PAGE-BREAK
-*ON TABLE PAGE-BREAK
ON TABLE SET HTMLCSS ON
ON TABLE SET PAGE-NUM OFF
ON TABLE SET STYLE *
TYPE=REPORT, IMAGE= INCUR.jpg ,  SIZE=(5 3),$
ENDSTYLE
ON TABLE PCHOLD FORMAT PDF OPEN
END
-RUN

TABLE FILE CAR
PRINT CAR.BODY.SALES NOPRINT
ON TABLE SET HTMLCSS ON
ON TABLE SET PAGE-NUM OFF
ON TABLE SET STYLE *
TYPE=REPORT, IMAGE= INCUR.jpg ,  SIZE=(5 3),$
ENDSTYLE
ON TABLE PCHOLD FORMAT PDF 
END
-RUN

TABLE FILE CAR
PRINT CAR.BODY.SALES NOPRINT
ON TABLE SET HTMLCSS ON
ON TABLE SET PAGE-NUM OFF
ON TABLE SET STYLE *
TYPE=REPORT, IMAGE= INCUR.jpg ,  SIZE=(5 3),$
ENDSTYLE
ON TABLE PCHOLD FORMAT PDF 
END
-RUN

TABLE FILE CAR
PRINT CAR.BODY.SALES NOPRINT
ON TABLE SET HTMLCSS ON
ON TABLE SET PAGE-NUM OFF
ON TABLE SET STYLE *
TYPE=REPORT, IMAGE= INCUR.jpg ,  SIZE=(5 3),$
ENDSTYLE
ON TABLE PCHOLD FORMAT PDF 
END
-RUN

TABLE FILE CAR
PRINT CAR.BODY.SALES NOPRINT
ON TABLE SET HTMLCSS ON
ON TABLE SET PAGE-NUM OFF
ON TABLE SET STYLE *
TYPE=REPORT, IMAGE= INCUR.jpg ,  SIZE=(5 3),$
ENDSTYLE
ON TABLE PCHOLD FORMAT PDF CLOSE
END
-RUN

Don

Great,
Worked just fine with your example and loop suggestion.

Thanks

By the way, is it possible to do something like this exporting to excel or word?
Or some document that allows me to select and copy a large number of graphics at once in JPEG format?
PDF does the job, but I’m only able to select and copy one graphic at a time, if i want 30, it's a lot a work to do

Getting this in Excel would be cool, I can only put one, the others just do not show up!

Any suggestions?
Tks,
Pedro

This message has been edited. Last edited by: P. Afonso,