Cette commande permet au programme AS/400 de:
• Modifier certaines propriétés de l’imprimante désignée.
• Configurer une imprimante Windows avec une configuration précédemment enregistrée.
• Rediriger la sortie de l’imprimante vers un fichier.
• Changer l’imprimante par défaut.
L'appel à la commande RSTPRINTER annule les changements effectués par SETPRINTER
Syntaxe
CHGVAR |
VAR(&CMD) VALUE('SETPRINTER') |
CHGVAR |
VAR(&PARM1) VALUE(' |
|
|
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 &RESULT) |
Paramètres
Paramètres |
|
Parm1 |
Printer = Nom de l'imprimante. Utilisez le nom connu du système Windows.
Setdefault = True fixe cette imprimante comme imprimante par défaut.
Prnfile
= Chemin et
Nom du fichier de sortie
Configfile
= Nom
du fichier de définition de l'imprimante
Trunc = True /False True : Le fichier désigné par PrnFile est mis à blanc. False : Les nouvelles impressions seront concaténées au fichier désigné par PrnFile.
Orientation Portrait = 1 Paysage = 2
Source Premier = 1 Le plus haut = 1 Un seul = 1 Le plus bas = 2 Milieu = 3 Manuel = 4 Enveloppe = 5 Enveloppe manuelle = 6 Auto = 7 Tracteur = 8 Petit = 9 Large = 10 Large Capacité = 11 Cassette = 14 Source = 15 Dernier = 15
Duplex 1 = Recto simple 2 = Recto verso sur le haut de la page 3 = Recto verso sur le côté gauche
Copies Nombre de copie à imprimer
|
Remarques
- Cette commande permet de passer momentanément sur une configuration d'imprimante que vous auriez préenregistrée dans un fichier.
- Lors d'une impression d'un publipostage, d'imprimer dans un fichier.
Ce qui
accélère l'exécution des publipostages avec une grande quantité
d'enregistrement et permet de contourner certains bugs de Word.
Notamment les problèmes de Word avec des fichiers prenant trop de place en
mémoire.
L'impression dans un fichier concatène toujours les nouvelles données avec les
données déjà présentes dans le fichier.
L'option Trunc permet de vider le fichier lors de l'appel de la commande
SETPRINTER. Si plusieurs impressions sont faites, avant l'appel de RSTPRINTER,
les données seront concaténées.
Par exemple, vous pouvez rediriger la sortie de l’imprimante vers un fichier (fichier PRN). En utilisant la commande LAUNCHER IFSPUT et la commande CL LNCPRTDOC, vous pouvez déplacer le fichier PRN vers une OUTQ AS400.
Attention, l'utilisation de l'impression dans un fichier en mode TSE est fortement déconseillée.
Exemple
Cet exemple permet d'imprimer le résultat d'un publipostage dans un fichier texte (.prn), cela correspond dans Word à l'option 'Imprimer dans un fichier'.
//Lancer LAUNCHER
LNCOPEN
MONMSG MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR))
//Tranfèrer les données d'un fichier
LNCXFER PCFILE('%LNCDIR%\samples\sp_cust.txt') FROMFILE(SP_CUST) CLOSECOM(*NO)
MONMSG MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR))
//Modifier le fichier de sortie
LNCCMD CMD(SETPRINTER) PARM1('printer="HP LaserJet 1200 Series PCL 6";prnfile="%lncdir%\samples\test.prn";trunc=true;setdefault=true')
MONMSG MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR))
//Ouverture de Microsoft Word Visible
LNCCMD CMD(WORDOPEN) PARM2(visible)
MONMSG MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR))
//Fusion du modèle de publipostage vers un fichier texte
LNCCMD CMD(WMAILMERGE) PARM1('document="%lncdir%\samples\sp_cust.doc"+
;destination=wdSendToPrinter;DataSource="%lncdir%\samples\sp_cust.txt"')
MONMSG MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR))
//Restaure les paramètres par défaut de l'imprimante
LNCCMD CMD(RSTPRINTER) PARM1('printer="HP LaserJet 1200 Series PCL 6"')
MONMSG MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR))
//Fermeture de Microsoft Word
LNCCMD CMD(WORDCLOSE)
Voir aussi