Hallo

so gehts bei mir:

clsrc:

call testbil03
----

rpglesrc testbil03:


H DECEDIT('0,') DATEDIT(*DMY.) datfmt(*eur)
H fixnbr(*zoned:*inputpacked)
*

FTESTbil3 o e PRINTER
write bild3 ;

*inlr = *on ;
return ;
-----


ddssrc:

A* DRUCKERDATEI FÜR testbil03 pdf
A*
A R BILD3 AFPRSC('extrait.pdf' +
A *PDFSPO 1.1 1 (*MAPOPT *P) +
A (*PATH '/i5/jt'))
A
-----

printerfile :
A*%% CHGPRTF FILE(TESTBIL3)
A*%%** DEV(*job)
A*%%** cpi(15)
A*%%** lpi(6)
A*%%** DEVTYPE(*AFPDS)
A*%%** PAGESIZE(70 130 *ROWCOL)
A*%%** OVRFLW(70)
A*%%** PAGRTT(0)
A*%%** FORMTYPE(0001)
A*%%** SAVE(*YES)
A*%%** COPIES(1)
A*%%** CHRID(*JOBCCSID)



oder andere Beispiele :

A*
A R BILD1 AFPRSC('Acc_007.jpg' +
A *JFIF 2 1 (*PATH '/i5/jt') +
A (*SIZE 1.5 1.5) (*MAPOPT *SL))

A R BILD2 AFPRSC('Acc_001.jpg' +
A *JFIF 4 1 (*PATH '/i5/jt') +
A (*SIZE 1.5 1.5) (*MAPOPT *SL))

A R BILD3 AFPRSC('Acc_002.jpg' +
*JFIF 4 1 (*PATH '/i5/jt') +
A (*SIZE 1.5 1.5) (*MAPOPT *SL))

A R BILD4 AFPRSC('INTRA.PDF' +
A *PDFSPO 1.2 4.6 (*MAPOPT *P) +
A (*PATH '/i5/jt'))
A



-----

geht alles

und das tolle ! SOGAR IN FARBE (in pdf sowieso, aber AUCH AUF FARBFÄHIGEM Drucker!! (das wollte ich übrigens schon lange ins Forum setzen, bin nur noch nicht dazu gekommen!)

Gruss
Jotho