Buenas tardes,
Te adjunto un ejemplo, por si te sirve de ayuda:
PRTIMAGEP.PRTF
A R TEXT SPACEA(1)
A DATA 56A 2SPACEA(1)
A R IMAGE AFPRSC(&IMGFILE *JFIF +
A &IMGDOWN &IMGACROSS +
A (*PATH &IMGPATH) +
A (*MAPOPT *SL) +
A (*SIZE &IMGWIDTH &IMGHEIGHT))
A IMGWIDTH 5S 3P
A IMGHEIGHT 5S 3P
A IMGDOWN 5S 3P
A IMGACROSS 5S 3P
A IMGFILE 125A P
A IMGPATH 640A P
PRTIMAGE.RPGLE
H THREAD(*SERIALIZE)
FPRTIMAGEP O E PRINTER
D entryPList PR extpgm('PRTIMAGE')
D imageFile 128A Const Varying
D path 640A Const Varying
D pos Const LikeDS(POS_T)
D imgSize Const LikeDS(POS_T)
D entryPList PI
D imageFile 128A Const Varying
D path 640A Const Varying
D pos Const LikeDS(POS_T)
D imgSize Const LikeDS(POS_T)
D pos_T DS Qualified
D elem 5I 0
D top 5P 3
D left 5P 3
D width 5P 3 overlay(top)
D height 5P 3 overlay(left)
C MOVE *ON *INLR
/free
data = 'This is the Image Print Test program';
imgDown = pos_T.top;
imgAcross = pos_T.left;
imgWidth = pos_T.width;
imgHeight = pos_T.height;
imgFile = 'GFPIEDOC.JPG';
imgPath = '/home/PDF400/IMG';
write image;
write text;
return;
/end-free
Saludos,
De: Forum.help400 <[email protected]> En nombre de
Dpto. Informática (José Sánchez)
Enviado el: lunes, 15 de marzo de 2021 15:20
Para: forum.help400 <[email protected]>
Asunto: RE: Imprirmir Imagen
Gracias a todos, lo revisare, tiene buena pinta
De: Forum.help400
[mailto:[email protected]<mailto:[email protected]>]
En nombre de datil400
Enviado el: lunes, 15 de marzo de 2021 13:39
Para: forum.help400
Asunto: Re: Imprirmir Imagen
De memoria, revisa la palabra clave AFPRSC.
El lun., 15 mar. 2021 9:00, Dpto. Informática (José Sánchez)
<[email protected]<mailto:[email protected]>>
escribió:
Buenos días, he buscado en Google y en el foro y no lo encuentro
¿podría imprimir una imagen en un PRTF?, no me refiero a un preformato, sino a
insertar una imagen variable en una posición en concreto de un informe. La idea
es imprimir una orden de producción con unas imágenes variables en algún lugar
del prtf.
¿alguna sugerencia?
Saludos
Nota de Confidencialidad
Este mensaje se envía desde el sistema de correo electrónico de la empresa
Productos Climax, S.A.. Podría contener por lo tanto secretos de empresa y otra
información confidencial tutelados por las leyes de la Unión Europea y otros
Estados. Si Vd. lo recibiera por error o sin ser una de las personas indicadas
en el encabezamiento, deberá destruirlo sin copiarlo ni revelarlo o cualquier
otra acción relacionada con el contenido del mensaje e informar inmediatamente
por correo electrónico al emisor del mensaje. Las personas y entidades que
violen sus deberes de confidencialidad podrán ser perseguidas ante los
Tribunales de Justicia al amparo de la legislación civil, penal y
administrativa nacional e internacional. Gracias por su colaboración.
Política de Privacidad
En base al Reglamento (UE) 2016/679 del Parlamento Europeo y del Consejo de 27
de abril de 2016 relativo a la protección de las personas físicas (RGPD), así
como con la Ley 34/2002, de 11 de julio, de Servicios de la Sociedad de la
Información y Comercio Electrónico (LSSICE o LSSI), le comunicamos que su
dirección de correo electrónico forma parte de nuestro fichero automatizado, al
objeto de continuar enviándole ofertas de nuestros servicios y / o el
mantenimiento de las comunicaciones en nuestras relaciones contractuales. En
virtud de las Leyes antes mencionadas, tiene derecho de oposición, acceso,
rectificación y cancelación de sus datos. Le recordamos que sus datos nunca son
suministrados a terceros bajo ningún concepto, siendo únicamente utilizados
para el envío de nuestras comunicaciones con Vd.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad (
http://bit.ly/db68dd<https://emea01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fbit.ly%2Fdb68dd&data=04%7C01%7C%7C17ceb0658ea140ac5f5808d8e7bd83d0%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637514148632649498%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=XJ%2FmgjUFXUFxJVvz5ocad1txA8HrVunBXC6tqeu0ylo%3D&reserved=0>
)
Forum.Help400 © Publicaciones Help400, S.L.
Nota de Confidencialidad
Este mensaje se envía desde el sistema de correo electrónico de la empresa
Productos Climax, S.A.. Podría contener por lo tanto secretos de empresa y otra
información confidencial tutelados por las leyes de la Unión Europea y otros
Estados. Si Vd. lo recibiera por error o sin ser una de las personas indicadas
en el encabezamiento, deberá destruirlo sin copiarlo ni revelarlo o cualquier
otra acción relacionada con el contenido del mensaje e informar inmediatamente
por correo electrónico al emisor del mensaje. Las personas y entidades que
violen sus deberes de confidencialidad podrán ser perseguidas ante los
Tribunales de Justicia al amparo de la legislación civil, penal y
administrativa nacional e internacional. Gracias por su colaboración.
Política de Privacidad
En base al Reglamento (UE) 2016/679 del Parlamento Europeo y del Consejo de 27
de abril de 2016 relativo a la protección de las personas físicas (RGPD), así
como con la Ley 34/2002, de 11 de julio, de Servicios de la Sociedad de la
Información y Comercio Electrónico (LSSICE o LSSI), le comunicamos que su
dirección de correo electrónico forma parte de nuestro fichero automatizado, al
objeto de continuar enviándole ofertas de nuestros servicios y / o el
mantenimiento de las comunicaciones en nuestras relaciones contractuales. En
virtud de las Leyes antes mencionadas, tiene derecho de oposición, acceso,
rectificación y cancelación de sus datos. Le recordamos que sus datos nunca son
suministrados a terceros bajo ningún concepto, siendo únicamente utilizados
para el envío de nuestras comunicaciones con Vd.
____________________________________________________
�nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 � Publicaciones Help400, S.L.
