Comment agrafer en PCL direct

Préambule :

En génération PCL native, l'agrafage d'un document peut se faire grâce à l'utilisation du paramètre PJL Command Before et PJL Command After de la commande MAPCPYSPLF :

PJL Command Before . . . . . . . > _____________             Name, *MAP
PJL Command After  . . . . .. . . . > _____________          Name, *MAP 

Lors de son utilisation, ce paramètre doit être initialisé avec une valeur faisant référence à un paramétrage d'un bloc PJL dans l'option 14/14 du menu Mapping

Exemple d'utilisation

On souhaite rajouter des codes PJL d'agrafage dans le flux PCL généré :

Définir le paramétrage dans l'option 14/14

MYDESTPRINTER   MYLIBPRINTER   PJLBEFORE   STAPLETOPL -> _____________________________

Le bloc PJL en question s'appelle "STAPLETOPL".

Edition du bloc PJL STAPLETOPL

Ensuite faire un 8 devant la ligne pour éditer le contenu du bloc PJL "STAPLETOPL".

Ensuite taper son contenu en HEXADECIMAL :

Utilisation du bloc PJL

Ce bloc STAPLETOPL est maintenant prêt à être appelé dans la commande MAPCPYSPLF :

PJL Command Before . . . . . . . > BEFORE          Name, *MAP

 ===> MAPCPYSPLF SPLF(FACTURE) SPLNUM(9) JOB(QPADEV0005) JOBNUM(774463) USER(JDIEU) MAPNAM(TEST73_1) MAPSEQ(*MRG) OUTQ(MYLIBPRINTER/MYDESTPRINTER) PJLBEFORE(STAPLETOPL) TYPLAN(*PCL) XPSCONVERT('*NONE')

 : Le paramètre AFTER est utilisé pour ajouter des commandes PJL en fin de job.

Résultat du flux en sortie

ESC-12345X@PJL 
@PJL SET STAPLE=LEFTTOP
@PJL ENTER LANGUAGE=PCL
ESCc15000D...FluxPCL...ESC-12345X